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Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% “error free”: un test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assicurando prestazioni 
“error free” anche in 
presenza di 
disallineamento delle 
testine. 


Solo Dysan garantisce una 
superficie “a specchio” 
grazie alla sua avanzata ed 
unica tecnica di 
“burnishing” - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 10, che le 
prestazioni “error free” 
siano esaltate e mantenute 
nel tempo. 


Solo Dysan garantisce, con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultato di 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata e 
certificata. 
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II mese scorso, da questa stessa pagina, avevo 
affrontato lo scottante problema della posizione della 
Apple sul mercato del personal computer e mi ero 
dichiarato ottimista per una serie di ragioni, non ultima 
l'esagerazione dei giornalisti italiani che, dopo aver 
cavalcato il boom del computer, si sono messi a 
cavalcare lo sboom perché faceva facile notizia. 

Oggi la nostra posizione è confortata da alcuni 
dati di bilancio relativi all'esercizio 1985 della Apple 
Computer, conclusosi il 30 settembre scorso. Il 
fatturato globale è aumentato del 27% rispetto all'anno 
precedente, passando da 1.515 a oltre 1.918 milioni di 
dollari. I profitti sono stati di 61 milioni e 223 mila 
dollari, contro i 64 milioni dell'anno scorso, ma 
bisogna tener presente che per l'85 è stato effettuato un 
accantonamento per tasse di quasi 59 milioni di dollari, 
contro l'accantonamento di 45 milioni dell'anno 
precedente; e infatti l'utile lordo, cioè quello prima 
delle tasse, è di 120 milioni di dollari contro 109 
milioni dell'84. 

Per finire, un altro dato significativo è 
rappresentato dalla disponibilità di cassa: 337 milioni 
di dollari, il più alto mai raggiunto da quando la Apple 
è stata fondata (l'anno precedente era di “appena” 114 
milioni di dollari). 

In questa situazione economico-patrimoniale, la 
Apple può guardare al futuro con serenità. Per le stesse 
ragioni, anche tutti gli attuali e futuri possessori di un 
computer Apple possono stare tranquilli: non hanno 
buttato i loro soldi in un'avventura, come qualcuno, 
preoccupato, mi ha scritto, ma hanno investito il loro 
denaro in computer validi e d'avanguardia, prodotti da 
un'azienda solida, con un valido futuro ...alle spalle. 
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Un uso insolitamente tenero del Macintosh, proposto aana Kagno nella sua campagna. 


Macintosh 
vota per te 

Già da alcuni anni la pub¬ 
blicità si è accorta della pre¬ 
senza sempre maggiore del 
computer nella vita quoti¬ 
diana. Da qui l’idea di sfrut¬ 
tare l’immagine del compu¬ 
ter per valorizzare o am¬ 
bientare modernamente il 
prodotto da reclamizzare. 

In alcuni casi, purtroppo, 
l’uso del computer è stato 
veramente aberrante e mi¬ 
stificatore. In altri casi il 
computer è stato enfatizzato 
non tanto nel messaggio 
pubblicitario puro, quanto 
invece per la sua presenza 
fisica nella pagina pubblici¬ 
taria oppure nello spot tv. 

Anche il Macintosh ha 
avuto e sta avendo la sua 
parte negli annunci pubbli¬ 
citari. La prima agenzia che 
ha pensato di utilizzarne 
l’immagine è stata l’Ita- 
lia/BBDO di Milano che 
l’ha inserito nella campagna 
del Partito Socialista Italia¬ 
no per le ultime elezioni am¬ 
ministrative. L’annuncio 
iniziava con lo slogan comu¬ 
ne a tutta la campagna "Il Psi 
vota per te" e proseguiva po¬ 
nendo attenzione al presen¬ 
te ("per te che vivi il tuo tem¬ 
po in ogni sua espressione") 
e al futuro ("per te che hai 
fiducia nel futuro e lo vuoi 
migliore del passato"). Tra 
le molte immagini utilizzate 
nella campagna per realizza¬ 
re una sfilata di volti e perso¬ 
naggi, ha trovato così posto 
anche il Macintosh, visto co¬ 
me punto di contatto tra 
l’uomo e i suoi problemi. 

In questi giorni, invece, 
Macintosh si presenta alla 
nostra attenzione come 
"spalla" alla maglieria intima 
per uomo della Ragno. L’a¬ 
genzia che ha curato campa¬ 
gna stampa e tv è la SPC di 
Milano. 

Il messaggio è basato sulla 
novità: Ragno è un nuovo 
risveglio. Ragno è un nuovo 
stile. E il testo dell’annuncio 
continua con l’intento, chia¬ 
ramente, di premiare il let¬ 
tore: Si nota subito chi è un 
po’speciale... Unico lo stile, 


quello di un uomo speciale. 

Due curiosità, da rilevare 
in questa pagina pubblicita¬ 
ria: la scritta che appare sul 
video non è stata realizzata 
con il solito MacPaint, per¬ 
ché è a pieno video; è stata 
quindi preparata apposita¬ 
mente per lo scopo da un 
fine conoscitore di Mac. E 
proprio questa scritta, inol¬ 
tre, ci fa supporre (seconda 
curiosità) che chi ha prepa¬ 
rato la videata sia un nostal¬ 
gico: il messaggio infatti di¬ 
ce "BUON COMPLEAN¬ 
NO .... LISA"! 

Molto meglio 
il mouse 

Aveva acquistato un //c 
ma dopo tre giorni l’ha cam¬ 
biato con un Macintosh 
512Kb. "Non che il Ile sia 
una brutta macchina", spie¬ 
ga Giancarlo Ramponi, ra¬ 


gioniere, 41 anni, da 9 si oc¬ 
cupa con il fratello Dario di 
elaborazione dati, "ma l’i¬ 
dea di dover premere con¬ 
temporaneamente diversi 
tasti per dare dei comandi, 
contro la possibilità di fare 
le stesse cose usando solo un 
dito mi ha tolto ogni dubbio 
sulla scelta del personal da 
adottare". 

Senza dubbio un Macin¬ 
tosh non è sufficiente a ge¬ 
stire la contabilità dei nume¬ 
rosi clienti, ma riesce a dare 
una mano nelle molte prati¬ 
che parallele a quella della 
pura ragioneria. "A far qua¬ 
drare i conti, impresa tut- 
t’altro che agile, ci pensa un 
sistema con cinque posti la¬ 
voro", continua Ramponi, 
"Macintosh lo usiamo per i 
lavori di routine come i ver¬ 
bali delle assembee, le peri¬ 
zie, le varie incombenze so¬ 
cietarie. Per quest’ultime, 
poi, ho messo a punto uno 
scadenziario per tenere sot¬ 
to controllo le situazioni dei 


miei clienti: quando Ammi¬ 
nistratori e Sindaci decado¬ 
no, i rinnovi vari che si devo¬ 
no effettuare, le incomben¬ 
ze eccetera". 

I vantaggi sono enormi, 
soprattutto se si pensa che 
prima del Macintosh il lavo¬ 
ro era svolto “manulamen- 
te” e trascritto da una mac¬ 
china per scrivere, che, a 
parte la veste grafica degli 
elaborati, rubava molte ore 
di lavoro. 

"Ma l’utilizzo del Mac non 
è limitato alla videoscritura 
e alle scadenze. Per esem¬ 
pio, da quando ho scoperto 
Multiplan sto dedicando 
molte notti alla costruzione 
di un programma capace di 
effettuare delle analisi di bi¬ 
lancio. L’unico problema è 
la memoria di massa del 
Mac: i 400Kb di un dischetto 
non mi bastano, adesso con 
il disco fisso e, a breve, con i 
drive a doppia faccia riusci¬ 
rò a trovare la soluzione 
ideale." 





Una catena 
di idee 

"Chi oggi acquista un per¬ 
sonal computer è spinto dal¬ 
le stesse motivazioni di chi 
qualche decennio fa si reca¬ 
va ad acquistare un’automo¬ 
bile. E adesso come allora 
chi compra la macchina ne¬ 
cessita di una serie di strut¬ 
ture parallele che ne per¬ 
mettano il massimo utiliz¬ 
zo". Con questa filosofia 
Giovanni Coviello, 35 anni, 
laureato in ingegneria elet¬ 
tronica, in cinque anni ha 
trasformato un ufficio ven¬ 
dita di Apple II in una cate¬ 
na di negozi che copre l’inte¬ 
ra regione del Lazio. 

Direttore commerciale 
della Bit Computer, società 
a responsabilità limitata, ro¬ 
mana, che oggi può contare 
su otto società controllate e 
altre tre che sfruttano il mar¬ 
chio e la politica societaria, 
Coviello è depositario della 
ricetta di tanto successo. 
Che si fonda, riprendendo la 
metafora iniziale, sul fatto 
che chi possiede un personal 
computer non vuole la mac¬ 
china e basta ma necessita di 
una serie di servizi e di ac¬ 
cessori presso il proprio 
"meccanico" di fiducia. 

"Non solo, i servizi e gli 
accessori che noi proponia¬ 
mo sono contraddistinti da 
un marchio registrato. Per 
fare degli esempi Bit Service 
contraddistingue il nostro 
servizio di manutenzione. 
Bit Training i corsi di ap¬ 
prendimento, con Bit Rent 
diamo la possibilità di noleg¬ 
giare personal computer e 
Bit Change offre una specie 
di mercato dell’usato. Ab¬ 
biamo anche dischetti e 
stampanti marchiati Bit: il 
nostro cliente deve trovare 
tutto quello di cui necessita 
presso di noi e, nei limiti del 
possibile, con il nostro mar¬ 
chio". 

Senza doversi spostare di 
troppo... 

"Certo, anche se è stato 
un investimento calcolato, 
la catena di punti vendita su 
cui possiamo contare copre 
cinque zone diverse di Ro¬ 


ma e tre province del Lazio; 
stiamo iniziando inoltre un 
rapporto di franchising in al¬ 
tre zone del paese. Il primo 
esempio è un negozio con il 
nostro marchio a Bari". 

Una catena che è destina¬ 
ta ad aggiungere altri anelli 
a quelli già esistenti. Come 
sono strutturati tra di loro i 
punti vendita? 

"Bit Computers è la sede 
centrale: si occupa di servi¬ 
zi, marketing, coordina¬ 
mento dei punti vendita e 
rapporti con le grandi uten¬ 
ze come scuole o grosse 
aziende. I cinque punti ven¬ 
dita situati in Roma sono so¬ 
cietà controllate dalla Bit 
Computers che ne possiede 
la maggioranza. Dei punti 
vendita nella regione del La¬ 
zio tre sono società conso¬ 
ciate alla capogruppo, se co¬ 
sì si può definire, la quale 
però non ne possiede la 
maggioranza (ma senza 
dubbio detiene il potere de¬ 
cisionale), e altri due, oltre a 
quello aperto a Bari, sono 
legati in franchising; sono 
cioè società che, avendo re¬ 
quisiti da noi ritenuti idonei, 
sfruttano il marchio e la po¬ 
litica della Bit Computer". 

Una struttura che copre 
tre differenti scelte di fusio¬ 


ne. Quali sono gli eventuali 
vantaggi e/o svantaggi di 
una catena così differente¬ 
mente strutturata? 

"Non parlerei di vantaggi 
o svantaggi; le scelte fatte 
sono scaturite da diverse esi¬ 
genze che via via si sono 
create. In Roma abbiamo 
preferito avere un controllo 
totale sui punti vendita; fuo¬ 
ri, le difficoltà pratiche di 
una gestione totale ci hanno 
spinto verso altre forme di 
associazione: sì a una parte¬ 
cipazione, ma pur sempre li¬ 
mitata, al mantenimento 
della politica societaria. Il 
franchising, invece, ci per¬ 
mette di portare il nostro 
marchio ovunque, presso 
società dai requisiti compa¬ 
tibili ai nostri mezzi". 

Tutto il mondo dei perso¬ 
nal computer sembra essere 
in crisi. Fino a che punto in¬ 
fluiscono le voci negative 
provenienti d’oltreoceano? 

"È più che altro una crisi 
di idee. In Italia c’è la terri¬ 
bile abitudine di accettare le 
situazioni così come sono. Il 
segreto, se segreto lo si può 
definire, è quello di cercare 
nuovi canali capaci di risol¬ 
vere problemi che in questo 
caso non sono reali ma im¬ 
posti da altri mercati". 


Mac 

a processo 

"Ho scelto Macintosh, no¬ 
nostante sul mercato esista¬ 
no altri personal computer 
con software dedicato e già 
predisposti alla risoluzione 
dei miei problemi, perché 
questa macchina mi è sem¬ 
brata agile, potente e facile 
da usare, soprattutto da par¬ 
te del personale del mio stu¬ 
dio, nient’affatto qualificato 
nel campo deH’informatica." 

Con questa dichiarazione 
l’avvocato Nicola De Mari- 
nis, neo utente Macintosh, 
apre la porta del suo studio 
in Via Morosini n. 22 a Mila¬ 
no. Civilista e specializzato 
in diritto commerciale, acu¬ 
to osservatore,Nicola De 
Marinis ha saputo organiz¬ 
zare in modo davvero abile 
il suo lavoro, tanto che ha 
deciso di automatizzarlo con 
il PC della casa di Cuperti- 
no, acquistato presso la New 
Line di Milano. I problemi 
che deve affrontare sono 
quelli comuni a molti uffici 
come il suo: gestione e ar¬ 
chiviazione di pratiche. 

Nonostante qualche in¬ 
toppo all’inizio, per via di 
una stampante a margherita 
che faceva le bizze, comin¬ 
cia a delinearsi il vantaggio 
di Mac, "e per quanto la uti¬ 
lizzi da poco tempo", conti¬ 
nua l’avvocato De Marinis, 
"mi accorgo di aver scelto 
una macchina da poter sfrut¬ 
tare pienamente, al contra¬ 
rio di alcuni miei colleghi e 
amici i quali hanno optato 
per scelte più impegnative, 
incontrando una serie di dif¬ 
ficoltà nell’attuazione ope¬ 
rativa dei programmi e tro¬ 
vandosi quindi nella condi¬ 
zione di sfruttare in minima 
parte i loro elaboratori". 

Non solo elogi, tuttavia, 
da parte dell’avvocato De 
Marinis: è importante che la 
Apple Computer, oltre a 
produrre ottime macchine, 
segua di più (leggi: softwa¬ 
re) le categorie alle quali si 
rivolge e in particolare sia 
più sensibile ai problemi di 
un settore professionale co¬ 
me quello degli avvocati. 



Giovanni Coviello, direttore commerciale della Bit Computers. 
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PER II, //e, //c 
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il Basic e gli Apple II in pratica. Questo volume 
accompagna gradualmente l’utente, al quale 
non è richiesta alcuna conoscenza matematica 
o informatica di base, dai primi approcci alla 
tastiera fino alla completa padronanza del com¬ 
puter e della programmazione. È il lettore a 
decidere se passare al successivo capitolo o 
ritornare ad approfondire quanto gli è stato 
appena spiegato. 310 pagine, 28.000 lire. 



Il Multiplan per il Macintosh. Oltre la pura 
semplice descrizione del funzionamento del fo¬ 
glio elettronico, introduce l’utente all'uso di 
uno strumento di lavoro integrato che permette 
di svolgere una quantità insospettabile di attivi¬ 
tà diverse in ogni area del lavoro d’ufficio o nella 
professione: modifiche, tagli, spostamenti, ri¬ 
montaggi, dal bilancio di una società al campio¬ 
nato di calcio. 210 pagine, 26.000 lire. 



Il manuale ProDOS. Il ProDOS costituisce un 
significativo passo avanti rispetto al diffuso ma 
ormai un po’ invecchiato DOS 3.3. Questo ma¬ 
nuale introduce ai numerosi e complessi aspetti 
del ProDOS, dedicando particolare attenzione 
alla struttura ad albero dei directory, alla com¬ 
patibilità con il DOS 3.3 e con il SOS e alla 
programmazione in Basic Applesoft sotto Pro¬ 
DOS. 200 pagine, 25.000 lire. 



Il Basic Microsoft. Il libro comprende un’anali¬ 
tica descrizione dell’uso di tutte le istruzioni, 
funzioni, comandi e operatori, organizzata in un 
vero e proprio corso di programmazione: loop, 
array, gestione di stringhe, formattazione del¬ 
l’output, subroutine, debugging, uso dei me¬ 
nu, gestione dei file ad accesso casuale e se¬ 
quenziale, file di chiavi e puntatori. Ricchissima 
documentazione esemplificativa. 432 pagine, 
38.000 lire. 



Genitori nell’era del computer. In che modo è 
possibile servirsi del computer nell’educazione 
dei figli? In che misura il computer cambierà la 
scuola? Qual è il software più adatto a stimolare 
la creatività dei bambini? A queste domande - e 
ad altre ancora - Pter Scharf dà delle risposte 
basate sulla sua esperienza in famiglia (quattro 
figli maniaci del computer) e nelle scuole statu¬ 
nitensi. 256 pagine, lire 19.000. 


COMPUTER 

GRAPHICS 

CORSO DI 
PROGRAMMAZIONE 
STEVEN HARRINGTON 



McGraw-Hill 


Computer Graphics. L’approccio seguito da 
Harrington rende accessibile il libro a un pubbli¬ 
co con basi matematiche elementari e concate¬ 
nando la spiegazione dei vari algoritmi in modo 
da portare il lettore anche alla realizzazione di 
un package grafico ben costruito e basato su 
concetti di standardizzazione delle funzioni. 
520 pagine, 39.000 lire. 



Pascal. Guida per programmatori. Il libro può 
essere usato per un corso intermedio da coloro 
che scrivono programmi più avanzati, ma il suo 
fine principale è quello di servire come libro di 
testo per l’autoapprendimento, poiché esso of¬ 
fre una trattazione esauriente del Pascal e una 
descrizione fedele e precisa del linguaggio stan¬ 
dardizzato dall’ISO e dagli isituti nazionali di 
standardizzazione. 292 pagine, 29.000 lire. 












Programmazione umanizzata in Applesoft. 

Riassume tutte le tecniche che vengono comu¬ 
nemente impiegate dagli esperti di software per 
rendere più amichevoli i programmi. Vengono 
infatti affrontati tutti gli aspetti di queste tecni¬ 
che: sia quelli interni al software, come routine 
a prova d’errore o di formattazione dell’input, 
sia quelli esterni, come la documentazione e i 
manuali operativi. Il libro include un quiz mne¬ 
monico e un’agenda telefonica. 208 pagine, 
21.000 lire. 






Grafica e animazione con gli Apple //. Questo 
libro vuole guidare gli appassionati nella com¬ 
plessa materia della grafica e dell’animazione, 
prendendoli per mano dai primi rudimenti attra¬ 
verso numerosi esempi e applicazioni, fino a 
una completa comprensione dei principi e dei 
metodi della computer graphics. Gli esempi 
sono applicati aliatamela degli Apple//: Il Plus, 
//e e //c. 160 pagine, 17.000 lire. 




Il Basic Applesoft. In 16 capitoli, un metodo 
graduale che non presuppone alcuna cono¬ 
scenza di base. Tra gli argomenti trattati: uso 
interattivo del computer, sintassi dei comandi 
DOS, formattazione dell’input e dell’output, ar- 
ray, selezione e ordinamento dei dati, grafica a 
bassa e ad alta risoluzione, trattamento dei file 
su disco, debugging, riepilogo delle istruzioni, 
comandi e funzioni Applesoft. 232 pagine, 
19.000 lire. 



Guida al Macintosh. Fin dal primo approccio, il 
Mac è molto amichevole, e offre sul video una 
scelta tra varie opzioni, rappresentate da icone. 
In questo modo l’utente può scegliere una o più 
di queste funzioni potendo tranquillamente 
ignorare ciò che avviene aH’intemo della mac¬ 
china e superando così la naturale diffidenza 
che a volte i computer ispirano. Lo strumento 
fondamentale per questo rapporto amichevole 
con il Mac è il mouse. 224 pagine, 22.000 lire. 


Il manuale MC68000. La famiglia di questo 
microprocessore trova un utilizzo vastissimo in 
workstation, sistemi CAD/CAM, sistemi di 
commutazione telematici, robot e controllori di 
processo, oltre che nei microcomputer di re¬ 
cente realizzazione, come Macintosh, Sinclair 
QL, HP 9816. Questo manuale è una preziosa 
fonte di informazione per gli appassionati che 
vogliono cimentarsi con la programmazione in 
Assembler. 168 pagine, 16.000 lire. 


Come usare MacWrite e MacPaint. Molto più 
di quanto facciano i manuali operativi allegati ai 
programmi, questo volume svela ogni trucco 
dei due applicativi per Macintosh, spiegando ed 
esemplificando particolari tecniche di disegno e 
di gestione dei testi, sempre nell’ottica di un 
uso integrato dei due programmi. Il libro è 
riccamente illustrato con immagini prodotte se¬ 
guendo fedelmente i consigli del testo, così da 
offrire ai lettori il risultato grafico di ogni se¬ 
quenza di operazioni. 192 pagine, 20.000 lire. 
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Extrapiatto 

Portatile anche il moni¬ 
tor, finalmente! Comoda¬ 
mente ripiegato proprio so¬ 
pra la tastiera, viaggia pro¬ 
prio dentro la valigetta del 
Ile. Si chiama The Display e, 
oltre alla portatilità, sfoggia 
anche un’ottima scheda tec¬ 
nica: stesso formato e stesso 
aspetto del monitor Apple, 
ma leggibilità migliore, gra¬ 
zie ai più grandi caratteri e 
alla maggiore porzione di vi¬ 
deo dedicata alla lettura; 
contrasto ottimo e regolabi¬ 
le, 80 caratteri per 24 righe e 
compatibilità con tutti i mo¬ 
di grafici del He. Pesa 1.250 
grammi e costa 595 dollari. 

Non esiste ancora un di¬ 
stributore per l’Italia e gli 
importatori europei opera¬ 
no ricarichi piuttosto eleva¬ 
ti; a chi è interessato conver¬ 
rà pertanto ordinare il pezzo 
direttamente dagli Stati 
Uniti, rivolgendosi alla casa 


produttrice: ATOR A NA- 
RA Company, 3333 Octa- 
vius Drive, Santa Clara, CA 
95054, telefono (dall’Italia) 
001 170 6210854. 

8.000 Mac 
a Philadelphia 

Si rifiuta di correggere 
qualsiasi eleborato che non 
sia stato realizzato, tramite 
word processor, con Macin¬ 
tosh. Non è un maniaco: è 
l’insegnante tipo della Dre- 
xel University di Philadelp¬ 
hia, dove l’adozione dei 
Mac ha prodotto una totale, 
irreversibile rivoluzione cul¬ 
turale. All’atto dell’iscrizio¬ 
ne, le matricole vengono già 
informate che la tassa è stata 
maggiorata: la quota com¬ 
prende adesso, infatti, an¬ 
che il costo di un Macintosh 
(scontatissimo: mille dolla¬ 
ri) con relativo pacchetto di 
software. 


Se no non si entra. 

Ogni studente ha il suo, 
dunque, ma non solo: tutti 
gli edifici del campus, tutti i 
servizi che esso presta sono 
collegati via Mac, e le stam¬ 
panti per comunicazioni or¬ 
ganizzative sono dissemina¬ 
te un po’ dovunque, dormi¬ 
tori compresi. Se uno stu¬ 
dente sta facendo una ricer¬ 
ca in biblioteca, inoltre, e in¬ 
cappa nella necessità di con¬ 
sultare una banca dati, o di 
collegarsi a qualche centro 
computerizzato, ha a dispo¬ 
sizione un modem (che fun¬ 
ziona, però, a monetine, co¬ 
me ogni bravo telefono pub¬ 
blico). 



Sono ormai una quindici¬ 
na gli istituti universitari sta¬ 
tunitensi che fanno amplissi¬ 
mo uso dei personal compu¬ 
ter, ma la Drexel li ha supe¬ 
rati davvero tutti: Macin¬ 
tosh (ce ne sono 8.000 già in 
organico) fa parte integran¬ 
te del curriculum formativo, 
e la struttura organizzativa è 
stata drasticamente modifi¬ 
cata dalla sua presenza. 

Il primo lotto di Macin¬ 
tosh fece il suo arrivo nel 
febbraio del 1984; 2.400 
macchine vennero distribui¬ 
te agli studenti, e subito i 
responsabili del campus fe¬ 
cero sapere alla direzione 
che l’impatto era stato forse 
fin troppo entusiastico: non 
c’era un solo allievo che 
stesse studiando per i vicini 
esami; tutti "cosavano" col 
Mac, incuriositi. 

Già con il secondo seme¬ 
stre, per fortuna, anche il 
computer divenne tollera¬ 
bilmente normale, e comin¬ 
ciò a fare il suo lavoro, con 
risultati, dicono gli officiai , 
ottimi. 

La vera novità, però, do¬ 
veva ancora arrivare: un fi¬ 
nanziamento governativo di 
quasi tre milioni di dollari 
permise di ristrutturare l’at¬ 
tività didattica. 

Sono i docenti stessi, a 
Philadelphia, che dirigono 
la realizzazione dei pro¬ 
grammi che giudicano ne¬ 
cessari alla scuola: più di 
cento, fino a oggi. Comples¬ 
se matrici algebriche, moti 
rotazionali di particelle, ma¬ 
nipolazione di onde radio... 
Ogni branca trova nel Ma¬ 
cintosh il più innovativo sus¬ 
sidio didattico, con eccezio¬ 
nali rese sul piano dell’ani¬ 
mazione grafica. 

E ben due sono le sorpre¬ 
se che questo esperimento 
ha prodotto, a dispetto degli 
scettici: gli insegnanti di di¬ 
scipline umanistiche sono 
tra i più entusiasti e gli psico¬ 
logi del campus registrano 
solo dati positivi. Chi teme 
che il computer sia un avver¬ 
sario del ben scrivere viene 
smentito infatti dagli inse¬ 
gnanti di lingua, storia e filo¬ 
sofia della Drexel Univer¬ 
sity. 


Il nuovo monitor portatile della Ator A Nara. Extrapiatto, si 
ripiega completamente sulla tastiera. 
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Chi teme che il computer 
sia un alleato della asocialità 
e dell’insicurezza, poi, viene 
rincuorato dall’équipe so¬ 
cio-psicologica: nelle mani 
di personale docente vera¬ 
mente preparato, il compu¬ 
ter è uno strumento che può 
fare miracoli. 

Scheda Mouse 

È per la serie //, è tutto 
italiano e prevede l’utilizzo 
del Mouse. Si chiama Pedi, 
schedario elettronico svilup¬ 
pato dalla PPS, Personal Pa¬ 
scal Software, che unisce a 
un’estrema facilità d’utilizzo 
la capacità di gestire dati 
non solo alfabetici ma anche 
numerici con la possibilità di 
inserire aH’interno di ogni 
scheda delle formule di cal¬ 
colo. Il formato della scheda 
viene definito dall’utente e 
può in qualsiasi momento 
essere modificato senza per 
questo perdere i dati già in¬ 
seriti. Le videate sono tutte 
impostate sulla Mouse 
Technology, quella del Ma¬ 



cintosh, con la possibilità di 
lavorare con 80 colonne per 
60 righe. Numerose le chiavi 
di ricerca sia a video che su 
stampante. Il programma è 
fornito su due dischetti e un 
manuale raccolti da un’uni¬ 
ca confezione, ed è disponi¬ 
bile nella versione su floppy 
disk da 5,25" o su minifloppy 
da 3,5". Si può richiedere 
presso la casa produttrice: 
PPS, V.le M. Libertà 72, 
Lissone (MI), telefono 
039/461362. 




INSID6 TH€ 

APPLE Ile 
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il volume: una vera e pro¬ 
pria guida; una serie di eser¬ 
cizi pratici sotto forma di 
programmi Pascal; un insie¬ 
me articolato di commenti 
ed esercizi per ciascun pro¬ 
gramma. L’aspetto pratico è 
stato ampiamente privile¬ 
giato perché, scrivono gli 
autori, il calcolatore ha sem¬ 
pre ragione. 

La costruzione di un mo¬ 
dello di conto economico è 
l’esempio guida con il quale 
il lettore del secondo libro 
viene iniziato all’utilizzo del 
Multiplan (o Visicalc). Ta¬ 
belle, finestre e celle: impa¬ 
rare a utilizzarle è fonda- 
mentale tanto quanto saper 
usare un word processor. 
Molti altri, naturalmente, 


Si chiama Word Proces¬ 
sing: guida all’uso (66 pagi¬ 
ne più un dischetto applica¬ 
tivo) ed è già disponibile in 
libreria a L. 26.000. Lo sco¬ 
po dichiarato del volumetto 
è quello di far apprendere in 
poche ore tutti i segreti della 
creazione ed elaborazione 
testi al computer. 

Qualcosa di più di un 
qualsiasi manuale per Apple 
Writer? 

Sì, per tre motivi. Innan¬ 
zitutto le istruzioni sono in 
italiano; in secondo luogo 
sono agilissime; infine ab¬ 
bondano di esempi "sul 
campo". 

Per realizzare un manuale 
ben organizzato, infatti, è 
requisito fondamentale l’e¬ 
sperienza didattica; e questa 
non difetta certo al Dott. In- 
ga, che dirige con successo 
l’Istituto Gamma di Monza 
(via Carlo Alberto 1, telefo¬ 
no 039 364930), dove l’in¬ 
gresso prepotente dei perso¬ 
nal computer ha trasforma¬ 
to l’insegnamento delle lin¬ 
gue in un curriculum didatti¬ 
co molto più completo e ar¬ 
ticolato. 

Dalla conoscenza diretta 
delle esigenze di una piccola 
azienda nasce inoltre l’idea 
di allegare al manuale un di¬ 
schetto applicativo che con¬ 
tiene 24 + 24 (inglese + te¬ 
desco) lettere commerciali 
"tipo"; basta sostituire nu¬ 
meri e nomi e si ha, in pochi 
secondi, un documento cor¬ 


retto grammaticalmente e 
formalmente. La segretaria 
media, infatti, pur cono¬ 
scendo abbastanza bene una 
lingua, incappa spesso e vo¬ 
lentieri in qualche errore, 
con il triste risultato di far 
fare brutta figura all’azien¬ 
da. E oltre alla correttezza, 
la enorme velocità di esecu¬ 
zione è il secondo vantaggio 
di questo archivio epistola¬ 
re. 

Qualche esempio: propo¬ 
ste di collaborazione, solle¬ 
citi di pagamento, reclami, 
offerte di merce, richieste di 
informazioni, prenotazioni, 
domande per stand fieristi¬ 
ci, circolari, richieste di re¬ 
ferenze, variazioni di ordini. 


Pascal 
e Multiplan 

Due nuovi volumi della 
collana Guide pratiche della 
E.P.S.I. editrice: Pascal 
UCSD per Apple II (primo 
volume), di J. Rouault e P. 
Girard, 216 pagine, 22 mila 
lire; Multiplan per Apple II 
Plus e Apple //e, di A. Palaci 
e H. Thiriez, 200 pagine, 22 
mila lire. 

Pèrché UCSD? Per la re¬ 
lativa autonomia di questo 
Pascal dall’elaboratore, che 
consente un trasferimento 
abbastanza agevole ad altri 
personal computer. Tre so¬ 
no le parti in cui è articolato 


Trilingue 

cercasi 
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sono gli esempi applicativi 
proposti dal manuale, che 
punta a una presentazione 
quanto più chiara del foglio 
elettronico per gli Apple //. 

L’ultima 

guida 

L’autore (Gary B. Little) 
promette infatti che dopo 
questa non ci sarà più biso¬ 
gno di acquistarne un'altra: 
è perfetta e definitiva. Insi¬ 
de thè Apple //c, dice il tito¬ 
lo, promettendo di svelare 
tutti i segreti contenuti nel 
computer; argomento del li¬ 
bro, per esempio, è il modo 
di far girare contempora¬ 
neamente due programmi in 
Applesoft, oppure di scrive¬ 
re e leggere blocchi specifici 
sul disco formattato Pro- 
DOS. 

Complessivamente, però, 
il libro affronta sistematica- 
mente hardware e software 
dell'Apple in generale e del 
//c in particolare. 

Scritto in inglese, 363 pa¬ 
gine ben fitte, ed edito dalla 
statunitense Brady Commu¬ 
nications, costa 25,95 dolla¬ 
ri. 


Mac libro 

Il libro dell’Apple Macin¬ 
tosh: un titolo con pretese di 
esaustività, indubbiamente. 
Scritto da Cary Lu ed edito 
da Mondadori (38 mila lire) 
compendia in 366 pagine 
tutte le informazioni neces¬ 
sarie per un primo, entusia¬ 
smante approccio al Macin¬ 
tosh. 

Molto preciso, ma di agile 
consultazione, il manuale si 
snoda in trenta capitoli, suf¬ 
fragati da una buona, anche 
se un po’ scarsa, grafica illu¬ 
strativa, con schemi e 
schizzi. 

Sono analizzati tutti i di¬ 
spositivi e i componenti, con 
annotazioni sia sul funziona¬ 
mento intrinseco sia sulle in¬ 
terazioni con altre parti. 
Non mancano esempi di ap¬ 
plicazioni, come grafica, fo¬ 
tografia e tecniche avanzate 
di comunicazione. 



C’è un genio? 

Il titolo del concorso in¬ 
detto dal Centro Archimede 
(Fininvest e Italturist) era: 
Forse c’è un genio alla ta¬ 
stiera del tuo computer. 
Preselezionati dall’Istituto 
di cibernetica dell’Universi¬ 
tà di Milano, i programmi 
concorrenti sono stati infine 
esaminati da una giuria 
composta da giornalisti del¬ 
l’Unità, del Sole 24 Ore, di 
Studio Vit, di Radio Regio¬ 
ne, di Elettronica Domani e 
di Computer & Elettronica. 

Il primo premio (floppy 
d’oro del valore di un milio¬ 
ne) è stato vinto da Andrea 
Borroni, 19 anni, studente 
universitario di Milano, con 
una "tavoletta musicale" per 
Atari 800 48K. Floppy d’ar¬ 
gento (500 mila lire il suo 
valore) ai secondi premiati: 
Federico Lo Cicero, studen¬ 
te di 26 anni, e Ugo Rossini, 
imprenditore di 32, entram¬ 
bi di Milano, per il loro gio¬ 
co "ciapel-ciapel" per Ap¬ 
ple IL II terzo premio, in 
bronzo, del valore di 250 mi¬ 
la lire, è andato a un ennesi¬ 
mo milanese: Massimiliano 
Calcaterra, 37enne libero 
professionista, che ha realiz¬ 
zato "lettera", un program¬ 
ma per ufficio che gira su 
IBM PC e Olivetti M 24. 

Tutti in Cina 

Si chiama INTER- 
COMM: è un congresso/ 
mostra su computer e comu¬ 
nicazioni, di rilevanza inter¬ 
nazionale, che si terrà dal 15 
al 20 settembre 1986 in Ci¬ 
na. Organizzano l’iniziativa 
l'Associazione cinese per la 
scienza e la tecnologia e il 
Cahners exposition group. 
La data della manifestazio¬ 
ne coincide con quella del 
trentesimo anniversario del¬ 
lo sviluppo informatico in 
Cina. 

L’importanza dell’avveni¬ 
mento sta nella sua novità: è 
la prima fiera del settore in¬ 
formatico durante la quale si 
terranno un congresso inter¬ 
nazionale e dei seminari, ed 
è la prima volta che un orga¬ 


no di stampa cinese pro¬ 
muove e sostiene un’iniziati¬ 
va del genere. 

INTERCOMM ’86 si 
svolgerà a Beijing, nella Re¬ 
pubblica Popolare Cinese. 

Aperte 
le iscrizioni 

A sei mesi dalla sua fon¬ 
dazione, il MAC Club ITA¬ 
LIA ha visto l'approvazione 
del suo statuto definitivo e 
ha posto le basi per un vero 
decentramento a livello re¬ 
gionale. Per informazioni e 
iscrizioni, rivolgersi alla se¬ 
de centrale: MAC Club Ita¬ 
lia, via Toscanini 32, 50127 
Firenze. 

E la rete? 

La NBS (News Business 
Services) è una società di 
servizi telematici che si oc¬ 
cupa della soluzione di pro¬ 
blemi legati alla diffusione e 
all'acquisizione di informa¬ 
zioni attraverso reti di tra¬ 
smissioni dati. Tre sono le 
principali attività a cui la 
NBS ha dato vita: organiz¬ 
zazione di corsi, pubblica¬ 
zione di una guida (Guida 


NBS, repertorio delle basi 
dati in linea) e sperimenta¬ 
zione di un servizio di posta 
elettronica. Per ulteriori in¬ 
formazioni scrivere a: NBS, 
via Ernesto Monaci 21, 
00161 Roma. 



Banca della 
sicurezza 


Presentata all'ultimo 
SMAU, Safety Computer è 
la prima banca dati italiana 
sulla prevenzione dei rischi 
negli ambienti di lavoro. La 
prima realizzazione è LE- 
XINFO, un programma 
operativo di informazione 






giuridica che permette la ri¬ 
cerca di circa 1.200 provve¬ 
dimenti legislativi e ministe¬ 
riali tramite la consultazione 
di un indice per argomenti o 
l’uso di un paio di chiavi. 
LEXINFO è concepito per 
essere utilizzato autonoma¬ 
mente dall’utente, senza bi¬ 
sogno di collegamenti, spes¬ 
so lenti o infruttuosi, con un 
centro esterno all’azienda. 
Per informazioni: Centro di 
documentazione sulla sicu¬ 
rezza e igiene del lavoro. Pa¬ 
lazzo E Milanofiori, 20090 
Assago (MI), telefono 02 
8254133. 


Proprio puliti 

Si chiama VCP ed è il 
nuovo sistema completo di 
pulizia per personal compu¬ 
ter della Verbatim. La serie 
è costituita da sei differenti 
kit che puliscono e proteg¬ 
gono le superfici sensibili da 
polvere, fumo, lanugine, 
impronte digitali e altri con¬ 
taminanti. Le sei confezio¬ 
ni, battezzate 401/2/3/4/5/6, 
servono, rispettivamente, 
alla pulizia dello schermo, a 
ridurre le scariche elettro- 
statiche, a tener cura delle 
strutture esterne, a pulire 
l’esterno del personal com¬ 
puter, alla pulizia delle testi¬ 
ne per drive da 5,25" e alla 
manutenzione della stam¬ 
pante. Ogni confezione con- 


H Verbatim 


VCP 404 

All-ln-One 

Kit 
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Smanino. 


tlai 


tiene gli appositi flaconi dei 
rispettivi detergenti con tut¬ 
to il necessario per interve¬ 
nire nella migliore maniera. 
Fa eccezione il Kit pulisci te¬ 
stina, disponibile in due ver¬ 
sioni, singola e doppia fac¬ 
cia, che viene fornito con i 
relativi dischetti da inserire 
nel drive. Si possono richie¬ 
dere presso i computer shop 
più forniti. 

TDK è Epson 

La rappresentanza esclu¬ 
siva per l’Italia dei dischi 
TDK è stata assunta dalla 
Epson-SEGI di Milano. 
Risultato di una ricerca de¬ 
cennale, la competenza tec¬ 
nologica della TDK è ben 
nota e, nel caso dei floppy 
disk, si esprime in quattro 
punti forza: la custodia è 
realizzata con materiale vi¬ 
nilico di altissima qualità, 


matica e dell’organizzazione 
aziendale), che si terrà a Bo¬ 
logna dal 22 al 26 febbraio 
1986 presso il quartiere fieri¬ 
stico, si darà vita al "Pro¬ 
gramma Utenza". 

Lo scopo dell'iniziativa è 
di fornire anticipatamente ai 
visitatori (si spera saranno 
cento mila) una mappa delle 
proposte e dei servizi offerti 
dal salone, per facilitare un 
orientamento selettivo al¬ 
l’interno dell’esposizione. 
Oltre all’invito (via mai- 
ling), ci sarà dunque anche 
uno stampato con indicate le 
proposte specifiche per la 
categoria dell’invitato, che 
potrà essere una delle se¬ 
guenti: commercio al detta¬ 
glio, commercio all'ingros- 
so, enti locali, assicurazioni, 
alberghi, medici, notai, in¬ 
gegneri e architetti, costrut¬ 
tori e progettisti, servizi in 
genere, trasporti, agenzie 
viaggi, ospedali, altre. 


Evviva l’agilità 

In ufficio, il più delle vol¬ 
te, il problema dello spazio 
c’è e si fa sentire; e il perso¬ 
nal computer, con tanto di 
periferiche, non è certo invi¬ 
sibile. Sulla scrivania in¬ 
gombra, ma deve essere 
sempre a portata di mano, e 
possibilmente a portata di 
più mani... Non basta un ta¬ 
volo tutto per lui, una men¬ 
sola o un carrello: ci vuole 
un sistema. 

TCS è un tavolo da com¬ 
puter con rotelle che con¬ 
sente di risolvere in modo 
eccellente i problemi di spa¬ 
zio. Ma non solo: i piani va¬ 
riamente angoiabili permet¬ 
tono un adeguamento otti¬ 
male alla sorgente lumino¬ 
sa; la distanza focale tra lo 
schermo e l’operatore è sta¬ 
ta stabilita attraverso i più 
severi controlli ergonome- 
trici. L’altezza è regolabile, 
eventualmente anche in mo¬ 
do elettrico, i colori sono 
modificabili a richiesta ed è 
disponibile un leggìo con 
braccio mobile. 


I dischetti TDK, ora distribuiti 
dalla Epson, e il nuovo tavolo 
portacomputer TCS. 



saldata a caldo e scanalata 
per aumentarne la rigidità; il 
rivestimento interno della 
custodia non subisce dete¬ 
rioramenti grazie alla spe¬ 
ciale trama non-tessuta; il 
disco presenta un film di po¬ 
liestere rivestito da uno stra¬ 
to di ossido di ferro (2,5 mi¬ 
cron) con uno speciale 
legante. 

Il rivestimento del disco 
disperde casualmente le 
particelle di ossido sopra 
l’intera superficie di regi¬ 
strazione per ottenere la 
massima ampiezza e modu¬ 
lazione dei segnali. 

Programma 

utenza 

Nell’ambito della quarta 
edizione del SIOA (Salone 
dell'informatica, della tele¬ 















mobili perii 

soggiorno o per l’ufficio è tutt’altro che un’inutile 
incombenza: l’arredamento, forse più 
dell’abbigliamento, rivela la personalità di chi l’ha 
scelto. Ma per non metterci troppa fatica, ecco un 
programma perfare a meno dell’architetto... In 
Applesoft, gira con il DOS 3.3 e permette di 
visualizzare, Hi-Res, diverse disposizioni 
salvandole poi su dischetto per revisionarle in un 
secondo momento o per stamparle in varie 
dimensioni. 



Progettare la disposizione dei 


L’architetto 

non 

mi serve più 


R icordate certamente la prima vol¬ 
ta che avete cercato di cambiare 
sistemazione ai mobili della camera da 
letto: dopo aver spostato tutta la mo¬ 
bilia, avete scoperto alla fine che uno 
dei comodini non trovava più posto 
nella stanza; qualche altra variante? 
Non c’era più spazio per la vostra sedia 
preferita, oppure non si poteva più 
aprire la porta deU’armadio a muro, e 
infine il cassettone messo lì non garba¬ 
va a vostra moglie. 

Disperati, avete deciso di disegnare 
una pianta della stanza su carta milli¬ 
metrata. Le prime prove sono state 
scartate, perché la scala scelta era sba¬ 
gliata. E dopo tre o quattro disegni, se 
non altro per stanchezza vi siete resi 
conto che tutto sommato la disposizio¬ 
ne originaria era la migliore. 

Appli Architect è stato ideato per 
superare tutti questi problemi e queste 
frustrazioni. Sfruttando i principi dei 
sistemi professionali di CAD (proget¬ 
tazione assistita dal computer) il pro¬ 
gramma consente di mettere a punto 
con facilità e duttilità piante di locali. 
Si possono creare, modificare e mani¬ 
polare fino a cinquanta oggetti per 
stanza (comprese porte e finestre) re¬ 
stando precisi con l’approssimazione 
di due-tre centimetri. 


Appli Architect svolge tre funzioni 
principali: editing grafico, gestione dei 
file di dischetto e generazione di hard- 
copy (copie su carta). Quando fate gi¬ 
rare il programma le operazioni e i 
comandi relativi all’editor grafico 
compaiono in forma di menù come si 
vede in figura 1. Per poter cominciare 
siete invitati a scegliere N oppure O. 
N - crea una nuova stanza. Scegliete 
questa opzione per visualizzare la 
schermata di input dei dati. Si possono 
introdurre e modificare i valori di lar¬ 
ghezza e lunghezza del locale, la spa¬ 
ziatura fra le linee del reticolo e il tito¬ 
lo. Se i valori numerici superano i 25 m 
compaiono due asterischi nella posi¬ 
zione pertinente dello schermo. Il pro¬ 
gramma passerà al modo di editing 
grafico solo se i valori numerici sono 
maggiori di zero e minori di 25. 

O - preleva dal dischetto una vecchia 
stanza. Scegliete questa opzione per 
visualizzare la schermata di gestione 
dei file del dischetto. Potete procurar¬ 
vi una vecchia stanza dal dischetto sce¬ 
gliendo l’opzione PRELEVA. Se in¬ 
serite un numero di file che è fuori 
della gamma comparirà un messaggio 
di errore. Analogamente produrrà 
messaggi di errore anche la scelta fatta 
a questo punto delle opzioni SALVA 




e RIVEDI. 

Il numero e il nome del file lampeg¬ 
giano mentre vi accedete. Una volta 
eseguito il prelevamento il numero e il 
nome del file saranno evidenziati: a 
questo punto diventano valide le op¬ 
zioni SALVA e RIVEDI. Premete la 
barra spaziatrice per visualizzare la 
vecchia stanza. Se premete la barra 
prima di prelevare una vecchia stanza 
l’effetto sarà lo stesso della scelta di 
NUOVO. 

Editing e cursore 

L’angolo in basso a destra della 
schermata di alta risoluzione visualiz¬ 
za la parola EDIT durante il modo 
editing. Una volta che è stata scelta 
un’operazione di editing EDIT è sosti¬ 
tuito dalla lettera corrispondente, che 
è visualizzata fino a operazione com¬ 
pletata. 

Il programma utilizza due cursori: 
uno è mobile (x), uno è fisso (+). Il 
cursore fisso stabilisce un punto di ri¬ 
ferimento, mentre il cursore mobile 
specifica uno spostamento relativo, o 
orientamento (inizialmente sono si¬ 
tuati entrambi al centro della stanza). 
Il cursore x si sposta a passi di 1, 2 o 3 
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coincidono o se il cursore x non si è 
spostato da quando è stato creato l’ul¬ 
timo oggetto. Riquadri e cerchi posso¬ 
no essere creati solo quando il cursore 
fisso è all’interno della stanza. Porte e 
finestre possono essere create solo 
quando il cursore fisso è situato entrai 
muri perimetrali. 

B - crea un riquadro: angoli opposti 
del riquadro corrispondono ai cursori 
fisso (x) e mobile (+). 

* - crea un cerchio: il cerchio ha come 
centro il cursore fisso (+) e la sua cir¬ 
conferenza passa per il cursore mobile 
&)■ 

D — crea un vano con porta: il cursore 
'fisso (+) segna il lato dei cardini della 
porta, che si apre verso l’interno della 
stanza. La larghezza della porta è de¬ 
terminata dallo scarto relativo fra i 
cursori fisso (+) e mobile (x). 

W - crea una finestra: la larghezza 
della finestra è determinata dallo scar¬ 
to relativo fra i cursori fisso (+) e mo¬ 
bile (x). 

X — crea un vano senza porta: X svol¬ 
ge la stessa funzione di D con la diffe¬ 
renza che non viene disegnata la 
porta. 


centimetri e non può andare fuori dei 
muri perimetrali della stanza. 

Premete I, J, K, M, <, oppure > 
per comandare il cursore mobile, F 
per comandare il cursore fisso; G vi¬ 
sualizza i valori numerici degli sposta¬ 
menti. Ecco una descrizione di questi 
comandi. 

I Sposta il cursore x di un passo in 
su. J Sposta il cursore x di un passo a 
sinistra. K Sposta il cursore x di un 
passo a destra. M Sposta il cursore x di 
un passo in giù. < Sceglie la contigua 
dimensione minore del passo (il passo 
è decrementato di uno). > Sceglie la 
contigua dimensione maggiore del 
passo (il passo è incrementato di uno). 
F Fissa il cursore + sulla posizione 
corrente del cursore x. G Visualizza i 
valori dei dati relativi ai cursori. 

Quando premete G vengono visua¬ 
lizzate le distanze orizzontale, vertica¬ 
le e diagonale fra i cursori mobile (x) e 
fisso (+). I comandi I, J, K, M, < e > 
sono ancora attivi. Quando il cursore x 
entra in uno qualsiasi dei muri perime¬ 
trali uno dei valori visualizzati lam¬ 
peggia. 

Gli oggetti grafici che rappresenta¬ 
no mobili, porte e finestre vengono 
creati manipolando i cursori fisso e 
mobile e usando i tasti di comando a 


lettera unica descritti più avanti. Una 
volta che un oggetto è stato creato può 
essere spostato in una nuova posizione 
con un’ulteriore serie di comandi a let¬ 
tera unica. 

Le dimensioni dell’oggetto creato 
sono determinate dalla posizione rela¬ 
tiva dei cursori fisso (x) e mobile (+). 
Il tipo di oggetto è determinato dai 
comandi B, *, D, W e X. Non sarà 
creato alcun oggetto se i cursori x e + 


Modifiche 
e spostamenti 

Gli oggetti da modificare o riposi¬ 
zionare devono prima essere scelti 
(cioè agganciati) e poi rilasciati (cioè 
sganciati). I comandi A, C, E, P, T, U 
e V agiscono solo sugli oggetti aggan¬ 
ciati. Se il cursore fisso è situato nella 
stanza i comandi agiscono solo sui ri¬ 
quadri e sui cerchi agganciati. Se il 
cursore fisso è situato nei muri perime¬ 
trali i comandi agiscono solo su porte e 


Figura L 1 comandi di editing 


FUNZIONI ASSEGNATE AI TASTI: 


A - MODIFICA 

K - DESTRA 

U - SGANCIA 

B - RIQUADRO 

L - AGGANCIA 

V - VERIFICA 

C - COPIA 

M - IN GIU 

U - FINESTRA 

D - PORTA 

N - NUOVO 

X - VANO SZA PORTA 

E - CANCELLA 

0 - VECCHIO 

Y - $r 

F - FISSA 

P - SPOSTA 

• - RET. E TITOLO 

G - PRELEVA 

Q - FINE 

* - CERCHIO 

H - HARDCOPY 

R - R1DIS. 

< - PASSO MINORE 

I - IN SU * 

S - SALVA 

} - PASSO MAGGIORE 

J - SINISTRA 

T - RUOTA 

? - AIUTO 

PREMI 'N' 0 '0' 

PER CONTINUARE...? 
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Listato 1 


10 

REM 

m*«****************** 

20 

REM 

* 

APPLI ARCHITECT 

* 

30 

REM 

* 

DI I. LARRY MORRIS 

« 

40 

REM 

« 

COPYRIGHT (C) 1985 

* 

50 

REM 

« 

BY APPLICANDO 4 

* 

60 

REM 

* 

MICROSPARC, INC 

» 

70 

REM 

m********************* 


80 HOME : VTA8 5: KTAB 12: IfWERSE : PRINT 'APPLI ARCHITECT 
NORMAL : VTAB 22: PRINT ' <0 1985 BY APPLICANDO E M 
ICROSPARC": IF PEEK (104) < > M THEN POKE 103.1: POK 
E 104,M: POKE 14384,0: PRINT CHR* (4)' RUN APPLI ARCHI 
TECT' 

90 POKE 105,0: POKE 104,8: POKE 107,0: POKE 108,8: POKE 109 
,0: POKE 110,8 

100 STO = "T":$A = 8192:8Y = 0:TR = 0:0C = 0:FL = 0:N1 = 10 
24:N1X = 255:N22 = 128:N3^ = 32:N2 = 8043:N3 = 984:E* = 
CHR» (27) 

110 ST = 2:tW = 0:FH = 0:FV = 0:AS = .84:HS = 3:VS = 3:C = 
0:TF = OsTI = 0 

120 C» = 'Z':XC = 0:YC = 0:XF = 0:YF = 0:XS = 0:YS = 0:L = 
0:N = 0:CL = 3:CR = 0:F = 0:G = 0:P5 = .5:0» = 'Ct1':PR 
= .017453:P4 = .7854:A = 0:US = 15 
130 GOTO 280 
140 REM CURSORE NOBILE 

150 XDRAU 3 AT HS ♦ HR * XC,VS * OR ♦ YC: RETURN 
140 REM CURSORE FISSO 

170 XDRAU 2 AT HS ♦ HR * XF,VS + OR » YF: RETURN 

1 fifì RFM QPflfiTA 

190 CA = PEEK ( - 16384) - 128: IF CA ( Q THEN 190 
200 POKE - 16368.0 

210 IF CA = 73 ANO YC > Y1 THEN GOSUB 140:YC = YC - ST:FL 
= 1:FV = 0: RETURN 

220 IF CA = 74 AND XC > XI THEN GOSUB 140:XC = XC - ST:FL 
= IsFH = 0: RETURN 

230 IF CA = 75 AND XC < X2 THEN GOSUB 140:XC = XC ♦ ST:FL 
= 1 :FH = 0: RETURN 

240 IF CA = 77 AND YC < Y2 THEN GOSUB 14Q:YC = YC ♦ ST:FL 
= 1:FV = 0: RETURN 

250 IF CA = 74 OR CA = 75 THEN FH = 1 

260 IF CA = 73 OR CA = 77 THEN FV = 1 

270 FL = 0: RETURN 

280 REM PREAMBOLO 

290 GOSUB 770 

300 GET Z% 

310 IF Zi = "N" THEN GOSUB 3190 

320 IF C$ = '0* THEN GOSUB 4480 

330 IF N = 0 THEN 300 
340 REM MONITOR 
350 GOSUB 180 

360 IF FL = 1 THEN W = 1 : GOSUB 140: GOTO 350 

fi7ft PQ = Cù - Aà 

380 IF CA = 42 THEN GOSUB 5750 

390 IF CA = 35 THEN GOSUB 5830 

400 IF CA = 60 THEN GOSUB 6130 

410 IF CA = 62 THEN GOSUB 6160 

420 IF CA = 63 THEN GOSUB 6190 

430 IF CS < 0 THEN 350 

440 ON CS GOSUB 1500,1730,1890,2050,2260,2400,2420,2690,299 
0,2990,2990,3010,2990,3190,4480,4050,4200,4240,4480,492 
0.5200.5280,5450,5530 
450 GOTO 350 


460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 


890 

900 

910 

920 


184 TO 191: HPLOT 252,1 TO 279,1: NE 


Q:VT = 24:HT = 37:ST* = "EDIT*: GOSUB 640: 


P5 * (AX(AI,3) + A 


REM OCCUPATO 
HCQLGR= 0: FOR I 
XT • HCQL0R= 3 

IV = 1:VL =~0:VT = 24:HT = 37: GOSUB 640: RETURN 
REM EDIT 
IV = 1:VL 
RETURN 

REM DISEGNA CERCHIO 
XG = P5 * (AX(AI,2) ♦ AX<AI,4)):YG 
X(AI.5)) 

D = P5 * (AX(AI,4) - AX(AI,2)):DX = VR * D:UA = 0:WB = 

2 * US:AG = 15 * PR 

IF DX > 10 THEN AG = 12 * PR 

IF DX > 25 THEN AG = 9 * PR 

IF DX > 35 THEN AG = 8 * PR 

IF DX ) 45 THEN AG = 6 * PR 

IF DX > 55 THEN AG = 5 * PR 

FOR 1 = TI TO T2 STEP AG 

X = (XG 4 D * COS <I)):Y = (YG - D * SIN (I)) 

IF X < UA OR Y < WA OR X > UB 4 LI OR Y ) WB 4 U1 THEN 
630 

HPLOT HS 4 HR * X,VS 4 VR * Y 
NEXT : RETURN 
REM ALFABETO 

IF VL = 0 THEN BA = N2 4 N2X * VT - N3 * INT <<VT - 1) 
/ 8) 4 HT 

FOR I = 1 TO LEN <ST$): IF VL = 1 THEN BA = N2 4 N2X * 
VT - N3 » INT ((VT - 1) / 8) ♦ HT 
CH = ASC ( MIDI (ST$,I,1)) - N3X 
IF CH = 0 THEN 730 
IF IV = 1 THEN 720 

FOR J = 0 TO 7: POKE BA 4 NI * J,ALX(CH,J): NEXT 
GOTO 730 

FOR J = 0 TO 7: POKE BA 4 NI 
BA = BA 4 (VL = 0):VT = VT 4 
REM MENU' 

PRINT LÌ<Ó)L$<7)L*(8)L$<9)L$<10)L*<11)L*<12)L*<13)L$<14 
)L$(15) 

RETURN 

REM INITIALIZZA 

VTAB 12: PRINT SPC( 39):: HTAB 8: FLASH : PRINT ■ STO 
LEGGENDO IL MENU' ': NORMAL 
D* = Zm (4): REM CTRL-D 
CR$ = CHR$ (13): REM C/R 
AD = 0:LN = 1179 

AD = PEEK (107) 4 256 * PEEK (108) 

PRINT DVBLOAD ARCHITECT.ALPH.A'AD 
POKE 110, INT ((AD 4 LN) / 256) 

POKE 109,AD 4 LN - 256 * INT ((AD 4 LN) / 256) 

NL = 67: DIM AX.(52,7),L$(NL),D(5),F$(5),E(1),G$(3),VX<3 
83) 

XF > = WS AND XF < = US 4 LI AND YF ) 

= WS 4 W1 

XF < = US OR XF > = US 4 LI OR YF < 

= US OR YF > = US 4 U1 

DEF FN HO(U) = AX(U,5) - AX(U,3) < US 4 ,1; DEF FN VE 

(V) = AX.(V.4) - AX(V,2) < US 4 ,1 

DEF FN BB(B) = MX * (B ) MX) 4 B * (B ) = 0 AND B < 

= MX) 

DEF FN BD(D) = MY * (D > MY) 4 D * (D ) = 0 AND D < 

= MY) 

DEF FN VH(J) = AX(I,J) ( US - ST: DEF FN RH(J) = AX(I 


* J,N1X - ALX(CH,J): NEXT 
(VL = 1): NEXT : RETURN 


DEF FN IN(U) 

= US AND YF ( 
DEF FN OT(X) 


finestre agganciate (viene fatta una di¬ 
stinzione anche fra muri orizzontali e 
verticali). 

L - aggancia un oggetto: un oggetto è 
agganciato solo se il cursore mobile (x) 
è nel suo ambito. Al centro dell’ogget¬ 
to comparirà un cursore di aggancia¬ 
mento (un riquadro). 

U - sgancia tutti gli oggetti aggancia¬ 
ti: questo comando causa la scomparsa 
di tutti i cursori di agganciamento. 

A - modifica gli oggetti agganciati: 
l'oggetto agganciato da modificare è 
identificato con un segno di più che 
compare al centro del cursore di ag¬ 


ganciamento. I, J, K, M, <, >, F e G 
sono ancora attivi (e quindi è disponi¬ 
bile il controllo completo del cursore). 
Premendo A farete scomparire il vec¬ 
chio oggetto e comparire la versione 
modificata. Tuttavia se i cursori fisso e 
mobile coincidono, o se il cursore mo¬ 
bile non si è spostato da quando è stato 
creato o modificato l’ultimo oggetto, 
A salterà al successivo oggetto aggan¬ 
ciato, per la sua modifica. 

C - copia gli oggetti agganciati: tutti 
gli oggetti agganciati possono essere 
copiati in una nuova posizione deter¬ 
minata dal vettore di scarto dal curso¬ 


re fisso (+) al cursore mobile (x). Lo 
spostamento di porte e finestre è però 
limitato ai muri esterni. 

E - cancella gli oggetti agganciati: 
questo comando permette di cancella¬ 
re un oggetto. Viene dato modo di 
annullare l’operazione di cancellazio¬ 
ne prima che sia stata realizzata. 

P - sposta gli oggetti agganciati: tutti 
gli oggetti agganciati possono essere 
spostati in una nuova posizione deter¬ 
minata dal vettore di scarto dal curso¬ 
re fisso (+) al cursore mobile (x). An¬ 
che se un oggetto finisce per trovarsi 
completamente fuori della stanza il 
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,J) ) US + LI + ST 

930 DEF FN BU(J) = AX<I.J) ) US + U1 + ST 

940 M* = "ARCHITECT .MENU* : PRINT WOPEN 'M$: PRINT DTREAD 

•m 

950 FOR I = 0 TO 1:L$(I) = ,B 

960 GET C$: 1F C* < ) CR* THEN L$(I> = L$(l) + C$: GOTO 96 
0 

970 X = FRE (0): NEXT 

980 FOR I = 2 TO NL: INPUT L$<I): NEXT 

990 FOR H = 832 TO 880: INPUT X: POKE H.X: NEXT 

1000 FOR I = 1 TO 2: INPUT X.Y: POKE X,Y: NEXT 

1010 FOR J = 768 TO 831: INPUT X: POKE J,X: NEXT 

1020 PRINT WCLOSE *M$: SCALE= 1 

1030 ONERR GOTO 1110 

1040 DIM DF*(42):M$ = "ARCHITECT.DIR": PRINT WOPEN 'M$: P 
RINT D$ B READ B M$ 

1050 INPUT DF$(G):DF = UAL (DF$(0)): IF DF = 0 THEN 1070 
1060 FOR I = 1 TO DF: INPUT DF*(I): NEXT 
1070 PRINT DVCLQSE "M$: HOME 

1080 UTAB 1: PRINT L$(3)"*" SPC( 38) , * , L^<4)SPC< 38) B * B 
L$<5) , * < SPC< 38)“**L$(3) 

1090 UTAB 8: CALL - 958: PRINT : PRINT L$<0): PRINT : GOSU 
B 740: PRINT : PRINT L$(16); 

1100 RETURN 

1110 CALL - 3288: POKE 216,0: PRINT WCLOSE":DF = 0: GOSU 
B 4810: GOTO 1080 
1120 REM INPUT QUALUNQUE COSA 

1130 CALL 54572: FOR H = 512 TO 768: IF PEEK (H) < >0 TH 
EN 1150 

1140 IN* = --:AD = UAL (INI) ♦ PEEK (131) ♦ 256 * PEEK ( 
132): POKE AD,H - 512: POKE AD + 1,0: POKE AD ♦ 2,2:IN 
$ = NID* <IN*,1):H = 768 
1150 NEXT : RETURN 
1160 REM TESTO 

1170 HOME : POKE - 16303,0: RETURN 

1180 REM GRAFICA 

1190 POKE - 16304,0: RETURN 

1200 REM CURSORI FISSO E MOBILE 

1210 GOSUB 140: GOSUB 160: RETURN 

1220 REM RETTANGOLO 

1230 MX = AM2.4):MY = AM2.5) 

1240 XL = AMAI,2):YT = AMAI,3):XR = AMAI,4):YB = AMAI,5 

1250 IF AMAI,7) < > 0 AND AMAI,0) = 2 THEN GOSUB 5080: 
RETURN 

1260 XL = FN BB(XL):XR = FN BB(XR):YT = FN BD(YT):YB = 

FN BD(YB) 

1270 LX = HS ♦ HR * XL:RX = HS ♦ HR * XR:TY = US ♦ UR * YT: 
BY = US + UR * YB 

1280 IF AMAI,0) = 3 THEN GOSUB 5490: RETURN 
1290 IF AMAI,0) = 5 THEN TI = 0:T2 = 359 * PR: GOSUB 510: 
RETURN 

1300 HPLOT LX,TY TO RX,TY TO RX.BY TO LX,BY TO LX,TY 
1310 IF AMAI,0) = 4 THEN GOSUB 5550 
1320 RETURN 

1330 REM SPAZIATURA RETICOLO 
13sii XM = 262 :YM = 172 

1350 HR = XM / (LI ♦ 2 * US):UR = YM / (U1 + 2 * WS) 

1360 IF UR < AS * HR THEN HR = UR / AS: GOTO 1380 

1370 UR = AS * HR 

1380 HD = SI * HR:UD = SI * UR:XZ = WS * HR:YZ = WS * UR 

1390 XM = HR * (LI ♦ WS):YM = UR * (W1 ♦ WS) 


1400 XI = WS - 1:X2 = Lì ♦ WS ♦ 1:Y1 = WS - 1:Y2 = W1 ♦ WS 
+ 1: RETURN 

1410 REM DISPOSIZIONE RETICOLO 
1420 IF YZ ♦ UD > YM - 1 THEN 1460 
1430 FOR I = US ♦ YZ ♦ UD TO US ♦ YM - 1 STEP UD 

1440 FOR J = HS 4 XZ ♦ HS TO HS ♦ XM - 1 STEP HS 

1450 HPLOT J,I: NEXT : NEXT 
1460 IF XZ + HD ) XM - 1 THEN RETURN 
1470 FOR I = HS ♦ XZ ♦ HD TO HS ♦ XM * 1 STEP HD 

1480 FOR J = US + YZ ♦ US TO US ♦ YM - 1 STEP US 

1490 HPLOT I,J: NEXT : NEXT : RETURN 
1500 REM A...MODIFICA 
1510 IF L = 0 OR AM0,1) = 2 THEN RETURN 
1520 A = 1:ST$ = 'A*: GOSUB 460: FOR Al = 3 TO AM0,1):GB = 
AMALO) 

1530 IF AMALI) = Q THEN 1720 
1540 GOSUB 3070 

1550 GOSUB 180 

1560 IF FL = 1 THEN W = 1: GOSUB 140: GOTO 1550 

1570 IF CA = 65 THEN 1630 

1580 IF CA = 71 THEN GOSUB 2420 

1590 IF CA = 70 THEN GOSUB 2400 

1600 IF CA = 60 THEN GOSUB 6130 

1610 IF CA = 62 THEN GOSUB 6160 

1620 GOTO 1550 

1630 IF MU = 0 THEN GOSUB 3070: GOTO 1720 
1640 IF FN OT(XF) = 0 AND (OB = 3 OR OB = 4) THEN 1550 
1650 A = 2: GOSUB 1200: HCOLQR= 0:CR = 3:CL = 0: GOSUB 4330 
: HCOLOR= 3:CR = 0:CL = 3 
1660 IF OB = 2 THEN GOSUB 1730 

1670 IF OB = 3 THEN GOSUB 5450 

1680 IF OB = 4 AND AX(AI,6) = 0 AND AX(AI,7) = 0 THEN GOSU 
B 5530: GOTO 1710 
1690 IF OB = 4 THEN GOSUB 2050 

1700 IF OB = 5 THEN GOSUB 5750 

1710 A = 0: GOSUB 3070:A = 1 
1720 NEXT :A = 0: GOSUB 490: RETURN 
1730 REM B...RI QUADRO 
1740 IF MU = 0 THEN RETURN 

1750 IF A = 0 THEN ST$ = *B': GOSUB 1820:AX(AI,0) = 2 

1760 A7.(AI,2) = XC:AX(AI.4) = XF 

1770 IF XC > XF THEN AMAI.2) = XF:AMAI,4) = XC 

1780 AMAI,3) = YC:AX(AI,5) = YF 

1790 IF YC ) YF THEN AMAI.3) = YF:AMAI,5) = YC 

1800 IF A = 0 THEN AMAI .6) = 1:AMAI,7) = 0 

1810 GOSUB 1220: GOSUB 1860: RETURN 

1820 REM AGGIUNGE 

1830 IF C = 0 THEN GOSUB 460: GOSUB 1200 
1840 AI = AM0,1) ♦ 1: IF AI ) 52 THEN GOSUB 1160: UTAB 12 
: HTAB 10: FLASH : PRINT 1 'L$(42)j: NORMAL :DL = 3000 
: GOSUB 2380: GOSUB 1180: GOSUB 4?0:C = 0: GOSUB 1200: 
POP : RETURN 

1850 AM0,1) = AI:AMA1.1) = 0: RETURN 
1860 REN RETURN 

1870 W = 0: IF A = 0 THEN GOSUB 490 

1880 GOSUB 1200: RETURN 
1890 REM C...COPIA 

1900 IF L = 0 OR W = 0 OR AM0,1) = 2 THEN RETURN 

1910 C = 1:ST$ = B C B : GOSUB 460: GOSUB 1200:XH = XC - XF:YH 
= YC - YF 

1920 FOR AN = 3 TO AMQ,l):OB = AX(AN,0) 

1930 IF AMAN,1) = 0 THtN 2040 (continua) 


suo cursore di agganciamento sarà si¬ 
tuato dentro il muro perimetrale più 
vicino all’oggetto. La presenza del 
cursore di agganciamento serve a ram¬ 
mentarvi 1’esistenza dell’oggetto e il 
fatto che può ancora essere recupe¬ 
rato. 

T - ruota gli oggetti agganciati: que¬ 
sto comando agisce solo su riquadri e 
cerchi. Se i cursori fisso e mobile coin¬ 
cidono gli oggetti agganciati vengono 
ruotati di 90 gradi in senso antiorario 
facendo perno sulla posizione comune 
dei cursori. Altrimenti ogni oggetto 
agganciato viene ruotato sul proprio 


centro in modo che sia parallelo alla 
linea che passa per le posizioni del cur¬ 
sore fisso e di quello mobile. 

V - verifica le dimensioni degli ogget¬ 
ti agganciati: questo comando visua¬ 
lizza una tavola che dà le dimensioni 
della stanza e di un massimo di cinque 
oggetti agganciati. 

R - ridisegna la stanza e il suo conte¬ 
nuto: quando i vari oggetti vengono 
modificati o riposizionati possono spa¬ 
rire certe porzioni della figura. Il co¬ 
mando R ridisegnerà completamente 
la figura. Questo comando sgombera 
dalla stanza quegli oggetti che siano 


stati cancellati o posizionati fuori della 
stanza e successivamente sganciati. 

# - modifica le dimensioni del retico¬ 
lo e il titolo: sia le dimensioni del reti¬ 
colo sia il titolo possono essere modifi¬ 
cati o esclusi (vale a dire non essere 
visualizzati) mediante il comando 
"# ". Per titolo si intende il testo che 
compare alla base della videata in alta 
risoluzione. L’esclusione del titolo ri¬ 
muove il titolo dalla base dello scher¬ 
mo. Se apportate una qualsiasi modifi¬ 
ca al reticolo o al titolo la figura sarà 
ridisegnata quando tornerete al modo 
editing grafico. Il programma non tor- 
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Figura 2. Stanza da letto con reticolo 75 x 75 cm 


Figura 3. Ufficio con oggetti agganciati 


Ecco qualche esempio che illustra le capacità di Appli Architect. La 
figura 2 mostra una tipica stanza da letto con la presenza deile linee del 
reticolo. Notate che il comodino nell’angolo alto a sinistra blocca parzial¬ 
mente la porta del ripostiglio. 

Il secondo esempio illustra l’effetto della risistemazione dei mobili in un 
ufficio. Nella figura 3 si vede un ufficio con una scrivania e due armadietti 
agganciati per il riposizionamento. Viene poi realizzata la figura girando 
questi oggetti di 90 gradi e mettendoli nell’angolo basso a destra. 

Si può mettere assieme con efficienza un’area d’ufficio comprendente 
vari scomparti con identica disposizione di mobili utilizzando la funzione 
di copia. Una pianta del genere è visibile nella figura 5, in cui la combina¬ 
zione ripetitiva di scrivania, poltrona, armadietto, libreria e parete diviso¬ 
ria è identificata dai cursori di agganciamento. 


nerà al modo editing grafico se le di¬ 
mensioni del reticolo sono zero. 

? — visualizza il menù di aiuto: è possi¬ 
bile richiamare i vari comandi di edi¬ 
ting mentre siete nel modo di editing 
grafico. Battete un punto interrogati¬ 
vo (?) per visualizzare il menù dei co¬ 
mandi di editing. 

Gestione dei file 

Il comando S (come pure O) richia¬ 
ma il Disk File Manager che gestisce i 
file del dischetto. Esso permette di sal¬ 
vare su dischetto i dati relativi a una 
determinata stanza per recuperarli, 
revisionarli o eliminarli in un momen¬ 


to successivo. Appli Architect può ge¬ 
stire i dati per un massimo di 42 stanze, 
quando non risiedano sullo stesso di¬ 
schetto altri programmi. 

S - salva i dati della stanza sul dischet¬ 


to: viene visualizzata la schermata del 
Disk File Manager. Le opzioni Elimi¬ 
na e Preleva vi richiedono il numero 
del file, mentre Salva chiede il nome 
del file. Rivedi si riferisce a numero e 
nome del file che è evidenziato (come 
conseguenza di un precedente preleva 
o salva). Dopo la rimozione di virgole, 
punti e virgola e spazi vuoti di coda il 
nome del file da salvare è confrontato 
con il nome di file evidenziato e vi 
viene comunicato se i due nomi corri¬ 
spondono. Dopo reliminazione di un 
file la tavola dei nomi di file viene 
automaticamente rinumerata in modo 
di ovviare a eventuali vuoti. NUOVO 
permette di creare una nuova stanza. 
FINE mette termine al programma. 
Per entrambi questi comandi siete in¬ 
vitati a dare conferma della vostra in¬ 
tenzione. 

Hardcopy e fine 

Il comando H vi permette di ottene¬ 
re una hardcopy (copia su carta) della 
videata in Hi - Res utilizzando la stam¬ 
pante MX—80 con il Graftrax, e con 
qualche modifica al programma, an¬ 
che con le stampanti DMP e IMAGE 
WRITER (vedi riquadro). 

H - genera la hardcopy: sono disponi¬ 
bili opzioni per la realizzazione di im- 


TAVOLA I BUFFER DATI INTERNO 



A%(1.0) 

A%(I,1> 

A%(I,2) 

A%(L3> 

A%(1,4) 

A%(I,5) 

A%(1,6) 

A%(1.7) 

A%(0.J) 

1 

AN 

SI 

GF 

LI 

W1 

0 

0 

A%(1.J) 

2 

1 

WS 

WS 

LI+WS 

Wl +WS 

1 

0 

A%<2 J) 

2 

0 

0 

0 

LI +2*WS 

W1 +2*WS 

1 

0 

A%(3,JD 

IT 

LF 

XL 

YT 

XR 

YB 

XD 

YD 


TAVOLA 2 Assegnazione dei valori XD e YD 


TIPO 

CONDIZIONE 

XD 

YD 

Riquadro 

Niente rotazione 

1 

0 

Riquadro 

Rotazione 

Scarto X 
fra i cursori 

Scarto Y 
fra i cursori 

Porta 

Vano senza porta 

0 

0 

Porta in 

In giù a destra 

0 

1 

muro 

In giù a sinistra 

0 

2 

verticale 

In su a sinistra 

0 

3 


In su a destra 

0 

4 

Porta in 

In giù a destra 

1 

0 

muro 

In giù a sinistra 

2 

0 

orizzontale 

In su a sinistra 

3 

0 


In su a destra 

4 

0 
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Figura 4. Oggetti agganciati riposizionati 


Figura 5. Pianta modulare 


magini di 7,5 x 10 centimetri o 15 x 20 
centimetri. Si può scegliere anche di 
far ridisegnare l’immagine prima della 
stampa (comando R). Si può mettere 
fine all’operazione di stampa premen¬ 
do la barra spaziatrice. Se avete una 
stampante diversa o un’attrezzatura di 
stampa speciale potete memorizzare 
la videata in Hi-Res sul dischetto per 
stamparla in un secondo momento. I 
possessori di una stampante DMP o 
IMAGE WRITER devono fare riferi¬ 
mento al listato 4 per le modifiche da 
apportare al programma per effettua¬ 


re la hardcopy del disegno. 

Q - fine di Appli Architect: si può 
mettere fine al programma Appli Ar¬ 
chitect sia dall’editor grafico sia dal 
Disk File Manager scegliendo Q. In 
entrambi i casi viene chiesta conferma 
dell’intenzione. 

Il programma 

Appli Architect consta di tre com¬ 
ponenti: un programma in Applesoft, 
un file di testo che contiene il testo del 


menù e i dati delle figure dei cursori, e 
una tavola delle figure per i caratteri in 
alta risoluzione. Poiché Appli Archi¬ 
tect genera diversi file di dati che ri¬ 
chiedono spazio sul dischetto, la mi¬ 
glior cosa sarebbe allestire un "dischet¬ 
to di lavoro" che in origine contenga 
soltanto questi tre file. A causa della 
lunghezza del programma e delle tec¬ 
niche impiegate per memorizzare le 
variabili, Appli Architect non girerà in 
ProDOS. 

Per digitare Appli Architect inserite 
dapprima il programma in Applesoft 






120 quiz, accompagnati da note 
didattiche, svolti in dettaglio. 
Un’esperienza di otto anni a di¬ 
sposizione di insegnanti, stu 
denti e di tutti coloro che amano 
la matematica. 

230 pagine, 20.000 lire 


Introduzione semplice e chiara 
all’MS-DOS, sistema operativo 
oggi quasi standard per le mac¬ 
chine a 16 bit. 

124 pagine, 19.000 lire 



Per conoscere questa macchi¬ 
na, la sua impostazione e quali 
funzioni consente di assolvere. 
152 pagine, 16.000 lire. 



Introduzione 
att’Appte Macintosh 


Gli studenti troveranno come ot¬ 
tenere grafici in alta risoluzione 
e come stamparli. 

92 pagine, 15.000 lire 




moderni amplificatori BF 
autocostruiti 


biblioteca tascabile elettronica 



preampiiticatore. equalizzatore^ 
controllo di tono, amplificatori, 
compander High-Com. filtri 


Offre una serie di progetti nei 
nuovi campi di applicazione, 
con aggiornate concezioni cir¬ 
cuitali. 

100 pagine, 12.000 lire 


Desidero acquistare , . , 

jSfe.. èVA/iisi . Mj . zM.hZj'&iì.L 


□ . 

□ ... /. . . . 

Pagherò al postino il prezzo indicato + 1.000 lire per contributo spese postali 
□ Desidero solo ricevere il vostro catalogo generale 
Ritagliate e spedite a: 

gruppo editoriale muzzio - via makallè 73_- 35138 padova 
nome.cognome. 

via.......*... 

c.a.p.città. ........ 
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1940 IF (OB = 3 OR OB = 4) AND FN OT(XF) = 0 THEN 2040 

1950 IF (OB = 2 OR OB = 5) AND FN IN(XF) = 0 THEN 2040 

1960 XE = XH:YE = YH 

1970 IF (OB = 3 OR OB = 4) AND FN HO<AN) THEN YE = 0: IF Y 
F ) US AND YF < WS + U1 THEN 2040 
1980 IF (OB = 3 OR OB = 4) AND FN VE(AN) THEN XE = 0: IF X 
F > US AND XF < US 4 LI THEN 2040 
1990 60SUB 1820:AX(AI,0) = AX(AN.O) 

2000 AMAI,2) = AX(AN,2) ♦ XE:AX(AI,3) = AK(AN f 3) + YE 

2010 AMAI ,4) = AX(AN,4) ♦ XE:AX(AI,5) = AX(FN,5) ♦ YE 

2020 AMAI;*) = AX<AN,6):AX(AI,7) = AMAN,7) 

2030 GOSUB 4330 

2040 NEXT :C = 0: GOSUB 1860: RETURN 
2050 REM D...PORTA 

2060 IF FN OT(XF) = 0 OR fW = 0 THEN RETURN 

2070 STI = -D - : IF F = 1 THEN STI = B X B 

2080 IF A = 0 THEN GOSUB 1820:A7.(AI ,0) = 4 

2090 A6 = 0:A7 = 0: GOSUB 2120 

2100 IF F = 1 THEN AMAI.6) = Q:AMAI,7) = 0 

2110 GOSUB 1220: GOSUB 1860: RETURN 

2120 REM POSIZIONAMENTO 

2130 IF XF < = US AND YF < YC THEN A2 = 0:A4 = US:A3 = YF: 
A5 = YC:A7 = 1 

2140 IF XF > = US ♦ LI AND YF < YC THEN A2 = WS ♦ LIsA4 = 

2 * US 4 LI:A3 = YF:A5 = YC:A7 = 2 
2150 IF XF < = US AND YF > YC THEN A2 = 0:A4 = US:A3 = YC: 
A5 = YF : A7 = 4 

2160 IF XF >* = WS 4 LI AND YF > YC THEN A2 = WS ♦ LI:A4 = 

2 * US ♦ LI:A3 = YC:A5 = YF:A7 = 3 
2170 IF YF < = WS AND XF < XC THEN A2 = XF:A4 = XC:A3 = 0: 
A5 = US:A6 = 1 

2180 IF YF > = WS + U1 AND XF < XC THEN A2 = XF:A4 = XC:A3 

= WS + W1:A5 = 2 * WS + W1:A6 = 4 

2190 IF YF < = WS AND XF > XC THEN A2 = XC:A4 = XF:A3 = 0: 

A5 = WS:A6 = 2 

2200 IF YF ) = US ♦ U1 AND XF ) XC THEN A2 = XC:A4 = XF:A3 

= US ♦ W1:A5 = 2 * US + U1:A6 = 3 

2210 AMAI .2) = A2:AMAI ,3) = A3:AMAM) = A4:AX(AI,5) = A 
5:AX(AI,6) = A6:AX(AI,7) = A7: RETURN 
2220 REM ARCO 
2230 CQ = CI * 2 - 1 

2240 HPLOT HS ♦ XG * HR.VS 4 YG * VR TO HS 4 (XG 4 D * COS 
(CQ * P4>) * HR,VS 4 (YG 4 D * SIN (CQ * P4)) * VR 

2250 AG = 10 * PR:UA = US:WB = US: GOSUB 590: RETURN 

2260 REM E...CANCELLA 

2270 IF L = 0 OR AM0,1) = 2 THEN RETURN 
2280 STI = -E": GOSUB 460: GOSUB 1200: HC0LOR= 0:CR = 3:CL 
= 0:E = 1: GOSUB 2320 

2290 DL = 1000: GOSUB 2380: GOSUB 1160: VTAB 12: HTAB 13: P 
RINT LK34): 

2300 GET CI: IF CI = B Y B THEN E = 0:L = 0 
2310 HCOLOR= 3:CR = 0:CL = 3: GOSUB 1180: GOSUB 2320: GOSUB 
490: GOSUB 1200: RETURN 
2320 REM STA CANCELLANDO 

2330 FOR AI = 3 TO AM0,1) 

2340 IF AMAI,1) = 0 THEN 2370 

2350 AMAI,0) = E * AMAI,0):AMAI,1) = E * AMAI,1) 

2360 IF E = 1 THEN GOSUB 4330 
2370 NEXT : RETURN 
2380 REM RITARDO 

2390 FOR I = 1 TO DL: NEXT : RETURN 
2400 REM F...FISSA 

2410 GOSUB 160:XF = XC:YF = YC: GOSUB 160:W = 0: RETURN 
2420 REM G...PRELEVA DATI CURSORI 
2430 GOSUB 1160 

2440 INVERSE : HTAB 5: PRINT LK19): NORMAL : VTAB 4: PRINT 
LKl): PRINT LK2): VTAB 9: PRINT LKl 7) 

2450 INVERSE : VTAB 12: HTAB 9: PRINT 'V;: HTAB 12: PRINT 
'D':: HTAB 15: PRINT LK37) 

2460 HTAB 9: PRINT “E" ; : HTAB 13: PRINT B I': HTAB 9: PRINT 

B RI , 

2470 HTAè 14: PRINT 'A': HTAB 9: PRINT T:: HTAB 15: PRINT 
B G B : HTAB 9: PRINT B P : : HTAB 16: PRINT B 0 B 
2480 HTAB 9: PRINT "C*: : HTAB 17: PRINT 'N*: HTAB 9: PRINT 
"A":: HTAB 18: PRINT “A* 

2490 HTAÈ 9: PRINT ’L" : : HTAB 19: PRINT “L": HTAB 9: PRINT 
•E":: HTAB 20: PRINT *E“: NORMAL 
2500 GOSUB 2570 
2510 GOSUB 180: GOSUB 2570 
2520 IF FL = 1 THEN W = 1: GOSUB 140: GOTO 2510 

2530 IF CA = 32 THEN GOSUB 1180: RETURN 

2540 IF CA = 60 THEN GOSUB 6130 

2550 IF CA = 62 THEN GOSUB 6160 

2560 GOTO 2510 


958: PRINT LI(39):H = 8:12 = 5 


2570 REM DISTANZE 
2580 XD = XC - XF:YD = YC - YF 

2590 IF FH = 1 THEN FLASH 

2600 DD = ABS (XD):VT = 13:HT = 26: GOSUB 2650 
2610 IF FV = 1 THEN FLASH 

2620 DD = ABS (YD):VT = 22:HT = 7: GOSUB 2650 

2630 DD = INT ( SQR (XD * XD 4 YD * YD)):VT = 22:HT = 21: 

GOSUB 2650 

2640 VTAB 9: HTAB 34: RETURN 
2650 REM CONTATORI 

2660 VTAB VT: HTAB HT: PRINT SPC< 4);: HTAB HT: PRINT DD;Q 

2670 FT = INT (DD / 100):IN = DD - FT * 100 
2680 HTAB HT: PRINT SPC( 8);: HTAB HT: PRINT , ( B FT , M , IN;Q$ 

: NORMAL : RETURN 
2690 REM H...HARDCOPY 

2700 GOSUB 1160: HTAB 13: INVERSE : PRINT LK44): NORMAL : 
VTAB 4: HTAB 3: PRINT LK46): PRINT : HTAB 3: PRINT LI 
(47): PRINT : HTAB 3: PRINT LK67) 

2710 VTAB 11: HTAB 10: PRINT LK35): PRINT : HTAB 3: PRINT 
LK17); 

2720 GET CI: IF CI = ’ ‘ THEN GOSUB 1180: RETURN 

2730 IF CI = B P THEN NX = 1 : GOTO 2770 

2740 IF Ci = B 2" THEN W, = 2: GOTO 2770 

2750 IF C$ = B 3 B THEN 2870 

2760 GOTO 2720 
2770 VTAB 4: HTAB 3: CALL 

8:J = 6:K = 40: GOSUB 2970 
2780 VTAB lls HTAB 3: PRINT L$(48);:DL = 1500: GOSUB 2380: 

IF C* = "R* THEN CALL 62450: GOSUB 1180: GOSUB 4260 

2790 GOSUB 1180: PRINT : PRINT DI-PRUl': FOR I = 1 TO 3 * N 

X: PRINT : NEXT : PRINT E$T:TM = 5 4 20 / <NX * NX) 
2800 FOR BY = 39 TO 0 STEP - 1: PRINT CR$:: POKE 36.TM:K = 

- 1: FOR TR = 0 TO 80 STEP 40: FOR OC = 0 TO 896 STE 

P 128: FOR FL = 0 TO 7168 STEP 1024:K = K 4 1 

2810 VX(K) = PEEK (SA 4 TR 4 OC 4 FL 4 BY): IF NX = 2 THEN 
POKE 768,VX(K): CALL 771:VX(K) = PEEK (769):VX(K 4 
192) = PEEK (770) 

2820 NEXT : NEXT : NEXT : FOR H = 0 TO NX * 192 - 1 STEP 19 
2: IF H = 192 THEN PRINT CR$;: POKE 36.TM 
2830 FOR I = H TO H 4 191 STEP 96 / NX: PRINT EVK - CHR$ (9 
6) CHR$ (0)s: FOR J = I TO I - 1 4 96 / NX: FOR 12 = 1 
TO NX: POKE 49296,VX(J) 

2840 IF PEEK (49601) < 0 THEN 2840 
2850 NEXT : NEXT :KC = PEEK ( - 16384): IF KC = 160 THEN 
POKE - 16368,0: PRINT E$ , 2 i : PRINT WPRM": GOTO 270 
0 

2860 NEXT : NEXT : NEXT : PRINT Er2': PRINT WPRM': RETU 
RN 

2870 VTAB 4: HTAB 3: CALL - 958: PRINT L$(32)‘: ':: GOSUB 
1120:F$ = INI: GOSUB 4860: VTAB 4: HTAB 20: PRINT FI;: 
CALL ■ 868 

2880 ONERR GOTO 2950 

2890 H = 7:12 = 41 :J = 9:K = 40: GOSUB 2970:VI = 66:VJ = 1 
2900 PRINT DI: PRINT DVBSAVE PIC. B FI B f AI2000 f LI2000 B 
2910 VTAB 4: CALL - 958 

2920 12 = 60:K = 17: GOSUB 2970:VI = 65:VJ = 2: IF CI < 

• ' THEN 2920 

2930 PRINT DI: PRINT DI'VERIFY ARCHITECT.DIR’ 

2940 GOSUB 1180: RETURN 

2950 CALL - 3288: VTAB 4: CALL - 958: HTAB 15: FLASH : 

INT * "LKVD : : NORMAL :DL = 3000: GOSUB 2380 
2960 HTAB 15: INVERSE : PRINT 1 'LKVD;: NORMAL : ON VJ GO 
TO 2890.2920 
2970 REM PRuMPTS 

2980 VTAB H: HTAB 3: PRINT LKI2): VTAB J: HTAB 3: PRINT LI 
(K);: GET CI: RETURN 
2990 REM IjJ.K.M 

3000 GOSUB 140:0L = 100: GOSUB 2380: GOSUB 140: RETURN 

3010 REM L...AGGANCIA 

3020 IF AX(0,1) = 2 THEN RETURN 

3030 STI = B L B : GOSUB 460: FOR AI = 3 TO AX(O.l) 

3040 IF XC < AX(AI,2) OR YC < AX<AI.3) OR XC > AX(AI,4) OR 
YC ) AX(AI,5) OR AX(AI,0) = 0 ÒR AX<AI,1) = 1 THEN 306 
0 

3050 AX(AI,1) = 1: GOSUB 3070 
3060 NEYT : GOSUB 490:L = 1: RETURN 
3070 REM AGGANCIATO 

3080 XS = P5 * (AX(AI,2) 4 AX(AI,4)):YS = P5 * <AX(AI,3) 4 
AX(AI,5)) 

3090 GOSUB 3130: IF A = 1 THEN XDRAU 1 AT HS 4 HR * XS,VS 
4 VR * YS: GOTO 3120 

3100 IF A = 2 THEN XDRAU 1 AT HS 4 HR * XS,VS 4 VR * YS 
3110 XDRAU 4 AT HS + HR * XS,VS + VR * YS (continua) 


> 
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visibile nel listato 1 e salvatelo su di¬ 
schetto con il comando: 


SAVE APPLI ARCHITECT 


Quindi inserite il programma visibi¬ 
le nel listato 2 e salvatelo sul dischetto 
con il comando: 


SAVE MENU. CREATE 


Dovete poi eseguire questo pro¬ 
gramma con il comando RUN per 
creare il file contenente il menù di te¬ 
sto denominato ARCHITECT- 
.MENU. 

Infine inserite il programma visibile 
nel listato 3 e salvatelo sul dischetto 
con il comando: 


SAVE ALPH. CREATE 


Fate quindi girare questo program¬ 
ma con il comando RUN per creare il 
file della tavola delle figure denomina¬ 
to ARCHITECT.ALPH. Menu.crea¬ 
te e Alph.create non servono più una 
volta che sono stati eseguiti per creare 
il file di testo e la tavola delle figure. 
Per usare Appli Architect basta batte¬ 
re RUN APPLI ARCHITECT aven¬ 
do nel drive un dischetto contenente 
Appli Architect, Architect.alph e Ar¬ 
chitect. menu. 

Utilizzazione 
della memoria 

Per riservare quanta più memoria è 
possibile al programma Appli Archi¬ 
tect si ricorre a varie tecniche. In pri¬ 
mo luogo si usa la memoria su dischet¬ 
to come area di preparazione per le 
stringhe del menù, le figure dei cursori 
e le subroutine. Per esempio occorro¬ 
no 68 stringhe di caratteri (da L$ (0) a 
L$ (67)) per produrre i vari menù, 
prompt e istruzioni. Menu.create scri¬ 
ve queste stringhe nel file Architect. 
menu, che viene poi letto in memoria 
da Appli Architect. La conseguenza è 
che solo le stringhe vere e proprie, e 
non le loro definizioni, occupano spa¬ 
zio in memoria. La stessa tecnica di 
preparazione viené usata da Menu, 
create per le figure dei cursori e per 
fornire l’espansione in alta risoluzione 
per le immagini su carta di dimensione 
doppia. 

Una variante di questo metodo vie¬ 
ne utilizzata da Alph.create, che riem¬ 
pie la matrice intera bidimensionale 
AL% (I,J) di schemi di bit per i carat¬ 
teri in Hi-Res. Quando questo è fatto 
viene salvato su dischetto come file 


binario Archiect.alph. L’indirizzo ini¬ 
ziale (ADDR) di questa matrice è ot¬ 
tenuto mediante l’esame delle locazio¬ 
ni di memoria 107 e 108. Le locazioni 
di memoria 109 e 110 contengono l’in¬ 
dirizzo finale (ADDR + LN). Perché 
ciò funzioni a dovere è importante che 
non sia definita alcuna ulteriore varia¬ 
bile fra il momento in cui sono definiti 
ADDR e LN (linea 110) e il momento 
in cui viene salvata con BSAVE la ma¬ 
trice (linea 190). 

Si ricorre a una terza tecnica per 
organizzare la memoria in modo di 
fornire al programma un blocco esteso 
e ininterrotto. Questo significa che si 
usa la pagina 1 dell’alta risoluzione e si 
fa in modo che Appli Architect si rica¬ 
richi proprio sopra di essa. In aggiun¬ 
ta, le variabili semplici e le variabili 
matrice sono memorizzate verso l’alto 
partendo da 2048, mentre le stringhe 
sono memorizzate verso il basso par¬ 
tendo da HIMEM (linea 90 di Appli 
Architect). 

Il buffer dati interno 

Le informazioni che descrivono in 
modo esclusivo una stanza e il suo con¬ 
tenuto sono memorizzate nel buffer 
dati interno A% (52,7). La specifica 
mansione di ciascun elemento di que¬ 
sta matrice intera è descritta nella ta¬ 
vola 1. La seconda e terza riga corri¬ 
spondono rispettivamente al lato in¬ 
terno ed esterno dei muri. 


AN = puntatore all’ultima riga di 
A% (I,J) 

SI = spaziatura del reticolo in cm 
GF = flag del reticolo (0 = off, 1 = 
on) 

LI = lunghezza della stanza in cm 
W1 = larghezza della stanza in cm 
WS = spessore del muro perimetrale 
(15 cm) 

IT = tipo dell’oggetto (0 = nullo, 1 
= reticolo, 2 = riquadro, 3 = 
finestra, 4 = porta, 5 = 
cerchio) 

LF = flag di agganciamento (0 = 
sganciato, 1 = agganciato) 

XL = coordinata X sinistra in cm 
YT = coordinata Y superiore in cm 
XR = coordinata X destra in cm 
YB = coordinata Y inferiore in cm 


L’attribuzione dei valori a XD e YD 
è più complicata. La tavola 2 descrive 
la relazione con il tipo d’oggetto. 

Le immagini sullo schermo sono co¬ 
struite con il ricorso diretto al buffer 
dati interno A% (I,J). Un buffer che 
contenga un massimo di 50 oggetti ri- 



* TECflOPOUJER * 
COmPUTER SHOP 


TUTTO APPLE 

MONFALCONE (GO) 

VIA S. GIACOMO 30 TEL. 0481/44260 

QUOTAZIONI SPECIALI IVA COMPRESA 

MODEM 300/600/1200 BAUD ADATTO A 
APPLE E A QUALSIASI SISTEMA MUNITO 
DI RS232 L. 300.000 

SCHEDA 80 COLONNE CON SOFT SWITCH 

L. 170.000 

MOUSE COMPLETO DI SOFTWARE 

L. 145.000 

S&H SCHEDA DI CAMPIONAMENTO VO¬ 
CALE E MUSICALE PER LA SINTESI DI 
QUALSIASI SUONO REGISTRATO DAL 
VIVO CON UN MICROFONO COMPLETO 
DI BATTERIA ELETTRONICA PRO¬ 
GRAMMABILE L. 350.000 

BETA SYNTAURI SISTEMA MUSICALE 
POLIFONICO COMPLETO DI TASTIERA 
A 5 OTTAVE, 2 PEDALI, 2 SCHEDE DI 
SINTESI, 1 SCHEDA INTERFACCIA TA¬ 
STIERA, REGISTRATORE DIGITALE A 
16 PISTE INCORPORATO L. 1.450.000 

CAD SISTEMA GRAFICO PROFESSIONA¬ 
LE COMPRENSIVO DI SCHEDA 128k RAM, 
JOYSTICK PROFESSIONALE, SOFTWARE 
E MANUALE IN ITALIANO, OTTIMO PER 

GRAFICI ED ARCHITETTI L. 980.000 

SCHERMO ANTIRIFLESSO IN SPECIALE 
FIBRA OTTICA APPLICABILE A QUAL¬ 
SIASI MONITOR 12" L. 18.000 

DISCHI PER APPLE E SIMILI UTILIZZA¬ 
BILI SULLE 2 FACCE, 5 ANNI DI GARAN¬ 
ZIA SCRITTA! 

MINIMO 30 PEZZI L. 3.100 

JOYSTICK CON APPLE CON TIMER C 
2 PULSANTI L. 43.000 

DRIVER 140K PER APPLE L. 390.000 

DRIVER 320K PER APPLE COMPATIBILE 
PRO - DOS L. 480.000 

DISPONIAMO DI UN VASTO ASSORTI¬ 
MENTO DI SCHEDE E PERIFERICHE. 
RICHIEDETECI IL NOSTRO CATALOGO 
GRATUITO COMPLETO DI PREZZI. 

GARANZIA 6 MESI CON SOSTITUZIONE 
IMMEDIATA IN CASO DI GUASTO. 
SPEDIZIONE IN CONTRASSEGNO. ORDI¬ 
NI TELEFONICI AL 0481/44260. 

MERCE PRONTA CONSEGNA. 

PER ORDINI SUPERIORI A L. 90.000 
IMBALLO E SPEDIZIONE GRATIS. 


IVA COMPRESA 

TECnOPDUJER * 
COfTlPUTER SHOP 

34074 MONFALCONE (GO) 

Via S. Giacomo, 30 (angolo Via S. Anna) 
TEL. 0481/44260 
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chiederà solo 6 settori di spazio di me¬ 
moria sul dischetto. Invece un dump in 
Hi—Res richiede 34 settori. 

Riga per riga 

Ecco adesso una sintetica spiegazio¬ 
ne delle principali routine del pro¬ 
gramma. 


La linea 80 riloca il programma sopra 
la pagina 1 Hi-Res. 

Le linee 90-120 stabiliscono LO- 
MEM e inizializzano alcune variabili. 
La linea 130 compie un GOTO 280 per 
avviare il procedimento di input. 

Le linee 140-170 disegnano con 
XDRAW i cursori mobile (x) e fisso 
(+)• 

Le linee 180-270 controllano lo spo¬ 


stamento del cursore mobile. Vengo¬ 
no impostati flag se al cursore è impe¬ 
dito di spostarsi verticalmente (FV) o 
orizzontalmente (FH) attraverso il 
muro perimetrale. 

La linea 280 fa GOSUB alla linea 770 
per leggere i file del dischetto e visua¬ 
lizzare il menù di editing grafico. 

Le linee 300-330 attendono che si in¬ 
troduca N o O. 


3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 


3250 

3260 


3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 


RETURN 

REM CONTROLLO AGGANCIAMENTO 
IF XS < XI - 2 THEN XS = XI - 
2 THEN XS = X2 + 
2 THEN YS = Y1 - 
2 THEN YS = Y2 ♦ 


IF XS > X2 
IF YS < Y1 
IF YS ) Y2 
RETURN 
REM N...NUOVO 

IF N = 0 THEN TIS = "jTG = 0: F0R I = 0 T0 5:0(1) = 0 

:F$(I) = ’ *: NEXT : GOTO 3250 

GOSUB 1160: VTAB 12: HTAB 13: PRINT L$<34): 

GET CS: IF CS < > ’Y" AND TG = 1 THEN TG = 0: GOSUB 3 
610: RETURN 

IF CS < > "Y" THEN GOSUB 1180: RETURN 
HTAB 12: FLASH : PRINT " "LS<43>;: N0RMAL :DL = 1000: 
GOSUB 2380:11 = AX(0,1): F0R I = 0 T0 II: F0R J = 0 T0 
1:AX(I,J) = 0: NEXT : NEXT :L = 0 
HOME : VTAB 2: HTAB 3: INVERSE : PRINT LS<26): NORMAL 
: VTAB 5: HTAB 16: PRINT L$<27): VTAB 7: HTAB 3 
PRINT LS<28): VTAB 9: HTAB 3: PRINT L$<29): VTAB 11: H 
TAB 3: PRINT L$(30): VTAB 14: HTAB 3: PRINT LS(45)":": 
VTAB 20: HTAB 10: PRINT LS<31) 

PRINT : HTAB 3: PRINT LS<17):: HTAB 28: PRINT "INIZIAR 
E": GOSUB 3380: GOSUB 3450: GOSUB 3530 
IF LI < U1 THEN LI = U1:U1 = Z 


AX(0,0) = 1:AX(0,1) = 2:AX<0.2> = SI 

AX<0,3) = 1 :AX(Q,4) = L1:AX<0,5) = U1 

AX(1,0) = 2 :AX( 2,0) = 2:AX(l,i) = 1:AX<2,1) = 0 

AXd ,2) = US:AX(i,3) = US 

AX(1,4) = LI + US:AX(1.5) = W1 + WS 

AX<2,2) = 0:AX(2,3) = 0 

AX(2,4) = LI ♦ 2 * WS:AX<2,5) = U1 4 2 * US 

AX(0,6) = 0:AX<0,7) = 0:AX(1,6) = 1:AX(1,7) = 0:AX<2,6 

) = 1 :AX(2,7) = 0 

GOSUB 3610: RETURN 

REM CONTROLLA 

U1 = Dd) ♦ 100 * 0(0) :L1 = 0(3) 4 100 * D(2):S1 = D(5 
) + 100 * 0(4):Z = LI 

FM = 1 : IF U1 = 0 OR LI = 0 OR SI = 0 THEN FM = 0 
RETURN 

REM COPERTE 

R = INT (D(K 4 1) / 100):D(K) = D(K) 4 R;D(K 4 1) = 
D(K 4 1) - 100 * R 

FS(K) = STRS (D(K)):FS(K 4 1) = STRI (D(K 4 D): RR 
URN 

REM DIMENSIONI 

F0R J = 0 T0 2:K = 2 * J 

IF FS(K) = OR FS(K 4 1) = THEN 3500 

GOSUB 3420 

IF D(K) ) 25 THEN FS(K) = "** B :FS<K 4 1) = "**":FM = 0 
:0(K) = 0:D(K 4 l) = 0 

VTAB 7 4 K: HTAB 18: PRINT RIGHTS (" " 4 FS(K),2); 
HTAB 28: PRINT RIGHTS (" " 4 FS(K 4 1),2); : IF G = 1 
THEN RETURN 

NEXT : VTAB 14: HTAB 13: PRINT TU: VTAB 22: HTAB 38: 
RRURN 

REM MODIFICA 

GET CS: IF CS = " " AND FM = 1 THEN RRURN 

IF CS = B "THEN CALL 64477 

CS = ASC (CS) - 65: IF CS < 0 OR CS ) 6 THEN 3540 

IF CS = 6 THEN GOSUB 6110: GOTO 3540 

FS(CS) = GOSUB 3450: VTAB 17: HTAB 3: PRINT LS<3 

3)"* 1 • 

GOSUB il20: VTAB 17: CALL - 868 

D(CS) = ABS ( VAL (INS)):FS(CS) = " ": GOSUB 3380: G0 

SUB 3450: GOTO 3540 

REM PROFILO 

fW = 0:FH = 0:FV = 0:FL = 0:ST = 2:N = 1: GOSUB 1330 
XC = P5 44 (XI 4 X2):YC = P5 * (Y1 4 Y2) :XF = XC:YF = Y 
C 


3640 HC0L0R= 3: P0KE 230.32: CALL 62450: P0KE - 16297.0: P 
ORE - 16302,0: P0KE - 16304,0: GOSUB 4260: RRURN 
3650 REM PULISCE 

3660 VTAB 22: HTAB 1: CALL - 868: VTAB 21: CALL - 868: RE 
TURN 

3670 REM FILE 

3680 P0KE 34,5: POKE 35,20: VTAB 6: HTAB 1: F0R I = 1 TO DF 
STEP 3: F0R J = I T0 I 4 2: IF J ) DF THEN 3730 
3690 PRINT " IF J = TI THEN IWERSE 
3700 IF J = TF THEN FLASH 

3710 PRINT RIGHTS <" " 4 STRS (J) 4 ■ " 3) LERS (DFS(J) 

4 " -9);: NORMAL : REM 9 SPAZI 

3720 NEXT : PRINT 1 ":: NEXT 

3730 POKE 34,0: POKE 35,24: VTAB 24: HTAB 36 4 <N = 0) * 2: 
RRURN 

3740 REM PR0MPT 

3750 IF DF = 0 THEN K = 63: GOSUB 3950 
3760 GOSUB 3650: HTAB 3: PRINT L$(33) B : "9$;: GOSUB 1120:TF 
= VAL (INI) 

3770 IF TF < 1 OR TF ) DF THEN K = 59: GOSUB 3950 
3780 GOSUB 3670: IF C* < ) "D" AND C$ < ) "R" THEN RRUR 
N 

3790 VTAB 22: HTAB 13: INVERSE : PRINT L$(34);: NORMAL : GE 
T B$ 

3800 IF B$ < ) "Y" THEN POP : GOTO 4640 
3810 IF C$ = "R" OR C$ = "Q" THEN RRURN 
3820 m = "A." 4 DF$(TF): PRINT D$: PRINT W'DELRE "M$: RE 
TURN 

3830 REM PR0MPT2 

3840 GOSUB 3650: IF N = 0 AND TG = 0 THEN K = 62: GOSUB 395 


3850 IF CS = B S B THEN 3900 
3860 IF TI = 0 THEN 3740 

3870 TF = TI: GOSUB 3650: GOSUB 3670: VTAB 21: HTAB 3: PRIN 
T LS(33) B : "SSTI: HTAB 13: IWERSE : PRINT L$(34);: NO 
RMAL : GR BS 

3880 IF B$ < > "Y" THEN POP : GOTO 4640 
3890 RRURN 

3900 GOSUB 3650: VTAB 21: HTAB 3: PRINT LS(57) B : "SS;: GOSU 
B 1120:FS = LERS (INS.9): GOSUB 4860: VTAB 21: HTAB 
21: PRINT FS;: CALL - 868: PRINT 
3910 IF TM < ) 0 THEN HTAB 3: INVERSE : PRINT L$(64):: NO 

RfttL : GR BS: IF B$ = "Y" THEN TF = TM: GOSUB 3670: R 

RURN 

3920 IF TM ( ) 0 THEN POP : GOTO 4640 

3930 IF DF = 42 THEN K = 61: GOSUB 3950 

3940 DF = DF 4 1:DFS(DF) = F$:TF = DF: GOSUB 3670: RRURN 

3950 REM MESSAGGI 

3960 IF K = 66 THEN PRINT DI: PRINT D$"CL0SE" 

3970 VTAB 22: HTAB 1 : CALL - 868:HT = INT ((39 - LEN (LS 
(K))) / 2): HTAB HT: IWERSE : PRINT L$(K);: NORMAL :T 
F = 0: GOSUB 3670 
3980 POP : POP : GOTO 4530 
3990 REM ELIMINA 
4000 IF TF = DF THEN 4020 

4010 F0R I = TF T0 DF - 1:DFS(I) = DFSd 4 1): NEXT 

4020 IF TI = TF THEN TI = 0 

4030 IF TI ) TF THEN TI = TI - 1 

4040 DF = DF - 1 : RRURN 

4050 REM P...SPOSTA 

4060 IF L = 0 OR W = 0 OR AX(0.1) = 2 THEN RRURN 
4070 STS = "P": GOSUB 460: GOSUB 1200:XH = XC - XF:YH = YC 
- YF 

4080 FOR Al = 3 T0 AX(0,1):OB = AX(AI,0) 

4090 IF AX(AI,1) = 0 THEN 4190 
4100 IF (0B = 3 OR 0B = 4) AND 

4110 IF (0B = 2 OR 0B = 5) AND 

4120 XE = XH:YE = YH 

4130 IF (0B = 3 OR 0B = 4) AND FN H0(A1) THEN YE = 0: IF Y 


FN OT(XF) = 0 THEN 4190 
FN 1N(XF) = 0 THEN 4190 


F > US AND YF < US 4 U1 THEN 4190 


(continua) 
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IN DIRETTA 
DAL VOSTRO 
COMPUTER. 



Sistema Polaroid Palette per dia im¬ 
mediate 35mm. e copie fotografiche 
a colori su carta (hard-copy). 

. Il sistema Polaroid Palette è stato con¬ 
cepito come unità periferica per i più diffu¬ 
si personal computers. 

, Istogrammi, grafici, ed altri tipi di ela¬ 
borati possono essere facilmente riprodot- 
i nelle tonalità più sature e brillanti, gra¬ 
fie ad una scala cromatica di ben 72 colori. 

Il tutto in tempo reale, operando sia 
con schermo monocromo che a colori. 

Il sistema Polaroid Palette utilizza, in¬ 
atti, il segnale di uscita del computer stes¬ 


so c consente elaborazioni fotografiche a 
colori sia su positivo (hard copy) che in 
diapositiva Polaroid 35 mm. 

Il sistema minimizza quindi la retinatu- 
ra dello schermo, per una riproduzione fo¬ 
tografica accurata e definita. 

Il sistema Polaroid Palette è uno stru¬ 
mento di lavoro per operatori di marke¬ 
ting, per ricercatori, per tutti coloro che 
necessitano di un adeguato supporto visi¬ 
vo alle loro presentazioni. 

Chiedete una dimostrazione al vo¬ 
stro rivenditore di fiducia e ai Distri¬ 
butori Specializzati Polaroid (indiriz¬ 
zi sulle Pagine Gialle). 


Per ulteriori informazioni spedite questo 
tagliando a: POLAROID (Italia) S.p.A. 
Divisione Prodotti Professionali 
Via Piave, 11 - Tel. 0332/470031 
21051 ARCISATE (Varese) 


Mittente _ 
Indirizzo _ 


s! 

il 


£ Polaroid 


“Polaroid" è un marchio registrato della Polaroid Corporation, Cambridge, Mass., USA. Polaroid 1985. 


















4140 IF (08 = 3 OR OB = 4) AND FN VE(AI) THEN XE = 0: IF X 
F ) US AND XF < US ♦ LI THEN 4190 
4150 HC0L0R= 0:CR = 3:CL = 0: GOSUB 4330 
4160 AMAI,2) = AMAI,2) ♦ XE:AMAI,3) = AMAI,3) + YE 
4170 AMAI ,4) = AMAI,4) ♦ XE:AMAI,5) = AMAI,5) ♦ YE 
4180 HCOLOR= 3:CR = 0:CL = 3: GOSUB 4330 
4190 NEXT :XF = XC:YF = YC: GOSUB 1860: RETURN 
4200 REM Q...FINE 

4210 GOSUB 1160: VTAB 12: HTAB 13: PRINT L$<34); 

4220 GET C$: IF C$ = 'Y' THEN POKE 106,8: POKE 105,0: HOME 
: END 

4230 GOSUB 1180: RETURN 
4240 REM R...RI DI SEGNA 

4250 CALL 62450: GOSUB 1160: VTAB 12: HTAB 5: FLASH : PRINT 
' 'L$(5Q);: NORMAL :DL = 1000: GOSUB 2380: GOSUB 4370 
: GOSUB UBO 

4260 IF AMO,3) = 1 THEN GOSUB 1410 
4270 FOR AI = 1 TO A7.<0,1) 

4280 GOSUB 4330: NEXT : IF AM1.1) = 0 THEN 4310 
4290 IL» = 0:VL = 1:VT = 1:HT = 40:ST* = L$<49): GOSUB 640 

4300 VL = 0:VT = 24: IF Tl$ < > " THEN HT = 1 ♦ INT ((35 

- LEN (TU)) / 2):ST$ = TI*: GOSUB 640 
4310 GOSUB 490 
4320 GOSUB 1200: RETURN 
4330 REM DISEGNA OGGETTI 

4340 IF AMAI,0) > = 2 AND AMAI,0) < = 5 THEN GOSUB 122 
0 

4350 IF AI > 2 AND AMALI) = 1 THEN GOSUB 3070 

4360 RETURN 

4370 REM HOUSEKEEPING 

4380 X = FRE (0) 

4390 AN = AMQ,1) :AI = 2: IF AN = 2 THEN RETURN 

4400 FOR I - 3 TO AN 

4410 IF AMI,0) = 0 THEN 4460 

4420 IF AM1,1) = 0 AND < FN VH<2) » FN VH(4) OR FN RH(2) 
4 FN RH(4) OR FN VH<3) 4 FN VH<5) OR FN BV<3) * 

FN BV<5)) THEN 4460 

4430 AI = Al + 1: IF AI = I THEN 4460 

4440 FOR J = 0 TO 7 

4450 AMAI,J) = AMI,J): NEXT 

4460 NEXT :AM0,1) = Al : IF AI = 2 THEN AI = 3 

4470 RETURN 

4480 REM S...SALMA 

4490 ONERR GOTO 4800 

4500 GOSUB 1160: IWERSE : HTAB 12: PRINT L*<54): NORMAL : 
PRINT : HTAB 3: PRINT L$(55): HTAB 3: PRINT L$(56): VT 
AB 24: HTAB 3: PRINT L$(17); 

4510 IF N = 0 THEN HTAB 3: PRINT 'PREMI TASTO CONANDO 0 BA 
RRA SPAZIO...'; 

4520 GOSUB 3670 
4530 GET C* 

4540 IF C$ = ' ' AND TG = 1 THEN TG = 0: GOSUB 3610: RETURN 


4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 


GOSUB 3740: GOSUB 46 
GOSUB 3830: GOSUB 4750 
: GOSUB 3830: GOSUB 475 


4550 IF Zi = ' ' AND N = 0 THEN CA = 78: POP : GOTO 370 

4560 IF Zi = ' 'THEN GOSUB 1180: RETURN 

4570 IF Zi = 'N' THEN CA = 78: POP : GOTO 370 

m 1f F S : m S«a H ^Gfisr3740: GOSUB 39 
90: GOSUB 4810: POKE 34,5: POKE 35,20: CALL - 936: GO 
TO 4640 

IF Zi = 'G' THEN S* = 'PRELEVA 
50:TG = 1: GOTO 4640 
IF C$ = "S" THEN Si = 'SALVA ' 

: GOSUB 4810: GOTO 4640 
IF C$ = 'R' THEN Si = 'RIVEDI 
0: GOTO 4640 
GOTO 4530 

X = FRE <0):TF = 0: GOSUB 3650: GOSUB 3670: GOTO 4530 
REM PRELEVA 

m = 'A.' + DF$(TF): VTAB 22: PRINT D$: PRINT W'OPEN 
"M$: PRINT W'READ 'M$ 

GOSUB 1120:TI$ = NID$ <IN$.l) 

FOR I = 0 TO 7: INPUT AM0.1): NEXT 
FOR I = 1 TO AM0,1) ; FOR J = 0 TO 7: INPUT AMI,J): N 
EXT : NEXT 

U1 = AMO,5) :L1 = A^'<0,4> :S1 = AM0,2):TI = TF:D(0) = 

0:D< 2) = 0 :D(4) = 0:D(1) = U1:D(3) = L1:D(5) = SI 
4710 GOSUB 1330: FOR J = 0 TO 2:K = 2 * J: GOSUB 3420: NEXT 


4720 PRINT W'CLOSE 'M$:L = 0: IF AX(0,1) = 2 THEN RETURN 
4730 FOR I = 3 TO AX(0,1): IF AX(I,1) = 1 THEN L = 1 : RETUR 

4740 NEXT : RETURN 
4750 REM SCRIVE 


4760 M$ = 'A.' ♦ DFKTF): VTAB 22: PRINT D$: PRINT W'OPEN 
'M$: PRINT D$*CLOSE' : PRINT DVDELETE 'M$ 

4770 PRINT WOPB'I 'M$: PRIf4T WUR1TE 'M$ 

4780 PRINT TI$: FOR I = 0 TO AX(0,1): FOR J = 0 TO 7: PRINT 
AX(I,J): NEXT : NEXT :TI = TF 
4790 PRINT D$'CLOSE 'M$: RETURN 
4800 CALL - 3288:K = 66: GOSUB 3950 
4810 REM DIRECTORY 

4820 M* = 'ARCH1TECT.DIR' : PRINT W'OPEN 'M$: PRINT DI'CLOS 
E': PRINT D$'DELETE 'M$ 

4830 PRINT D$'OPEN 'M$: PRINT D$'URITE 'M$ 

4840 DF$(0) = STR$ (DF): FOR I = 0 TO DF: PRINT DF$(I)s NE 
XT 

4850 PRINT D$'CLOSE 'M$: RETURN 
4860 REM CONFRONTA 

4870 IF RIGHTI <F*.1> = ' ' THEN F$ = MIDI (F$ f l, LEN <F$ 
) - 1): GOTO 4870 

4880 li = ": FOR I = 1 TO LEN (F$):T$ = MIDI (F$,I,l)s I 
F T$ < > '.' AND T$ < > ':' THEN li = 2$ + li 
4890 NEXT :F$ = li 

4900 TM = 0: FOR I = 1 TO DF: IF F$ = DF$(I) THEN TM = Isl 
= DF 

4910 NEXT : RETURN 
4920 REM T...RUOTA 

4930 IF L = 0 OR FN IN(XF) = 0 OR AX(0,1) = 2 THEN RETURN 

4940 ST$ = 'T': GOSUB 460: GOSUB 1200:XD = XC - XF:YD = YC 
- YF:XE = XF:YE = YF 

4950 FOR AI = 3 TO AX(0,1):OB = AX(AI,0) 

4960 IF AX(AI.l) = 0 OR OB = 3 OR OB = 4 OR (OB = 5 AND (XD 
< > 0 OR YD < >0)) THEN 5070 
4970 HCOLOR= 0: GOSUB 4330: IF XD = 0 AND YD = 0 THEN 5000 

4980 AX(A1.6) = XD:AX(AI,7) = YD: IF XD = 0 THEN XE = P5 * 

(AX(Ai.2) ♦ AX(AI.4)):YE = P5 * (AMAI,3) 4 AZ(AI,5))s 
AK(AI.i) = 1:AX(AI,7) = 0: GOTO 5000 
4990 GOTO 5060 

5000 XL = XE * YE 4 AX(AI,3):YT = YE 4 XE - A7.(AI,2) 

5010 XR = XE - YE 4 A7.(AI.5):YB = YE 4 XE - AX(AI,4) 

5020 AX(AI,2) = XL:AX(AI,4) = XR 

5030 IF XL > XR THEN AX(AI.2) = XR:AV.(AI,4) = XL 

5040 AX(AI,3) = YT:AX(AI,5) = YB 

5050 IF YT > YB THEN AMAI,3) = YB:AX(AI,5) = YT 

5060 HCOLOR= 3: GOSUB 4330 

5070 NEXT : GOSUB 490: GOSUB 1200: RETURN 

5080 REM RUOTA RETTANGOLO 

5090 XN = P5 * (XL 4 XR)sYX = P5 * (YT 4 YB):CX = AMAI,6): 
SI = AX(AI,7) 

5100 DD = SQR (CX * CX 4 SI * SI):CX = CX / DD:SI = SI / D 
D 

5110 XX = P5 * (XR - XL):YY = P5 * (YT - YB) 

5120 XA = XN 4 XX » CX - YY * SI :YA = YX 4 XX * SI 4 YY * C 

X 

5130 XB = XN 4 XX * CX 4 YY * SI:YB = YX 4 XX # SI - YY # C 
X 

5140 XU = XN - XX * CX 4 YY * SI :YU = YX - XX * SI - YY*C 
X 

5150 XV = XN - XX » CX - YY * SI :YV = YX - XX * SI 4 YY * C 
X 

5160 XA = FN BB(XA):XB = FN BB(XB):XU = FN BB(XU):XV = 

FN BB(XV) 

5170 YA = FN BD(YA):YB = FN BD(YB):YU = FN BD(YU):YV = 

FN BD(YV) 

5180 XA = HS 4 HR * XA:XB = HS 4 HR * XB:XU = HS 4 HR * XU: 

XV = HS 4 HR * XV:YA = VS 4 VR * YA:YB = VS 4 VR * YB: 

YU = VS 4 VR « YU:YV = VS 4 VR « YV 

5190 HPLOT XA,YA TO XB,YB TO XU,YU TO XV,YV TO XA,YA: RETUR 

5200 REM U...SGANCIA 

5210 IF AX(0,1) = 2 THEN RETURN 

5220 ST* = 'U': GOSUB 460: FOR AI = 3 TO AX(O.l) 

5230 IF AMALI) = 1 THEN GOSUB 5250:AMAI, 1) = 0 
5240 NEXT : GÒSUB 490:L = 0: RETURN 
5250 REM SGANCIATO 

5260 XS = P5 » (AMAI ,2) 4 AMAI,4)):YS = P5 4 <A7.(AI ,3) 4 
AMAI ,5)) 

5270 GOSUB 3130: XDRAW 4 AT HS 4 HR 4 XS,VS 4 VR 4 YS: RETU 
RN 

5280 REM V... VERI FICA 

5290 GOSUB 1160: IWERSE : HTAB 10: PRINT L$<25) 

5300 VTAB 3: HTAB 4: PRINT L*<36):: HTAB 14: PRINT L$(37);: 

HTAB 28: PRINT L$(38): NORMAL 
5310 VT = 5:VI = 20: VTAB VT: HTAB 4: PRINT L*(VI) 

5320 HT = 14:DD = LI: GOSUB 2650 

5330 HT = 28:DD = Ul: GOSUB 2650 
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5340 IF L = 0 THEN 5420 

5350 VJ = 1 : FOR I = 3 TO AX<0,1> 

5360 IF AX(I,1> = 0 THEN 5410 

5370 VT = VT ♦ 3:VI = AX(I.O) + 19: VTAB VT: HTAB 4: PRINT 
L$(VI) 

5380 DD = AX<I,4) - M(I,2):HT = 14: GOSUB 2650 

5390 DO = A7.(1,5) - A7.<I,3):HT = 28: GOSUB 2650 

5400 VJ = VJ ♦ 1: IF VJ > 5 THEN 5420 

5410 NEXT 

5420 «vTTAB 24: HTAB 3: PRINT L$<17); 

5430 GET C$: IF C$ = ' 'THEN GOSUB 1180: RETURN 

5440 GOTO 5430 

5450 REM W...FINESTRA 

5460 IF FN OT(XF) = 0 OR W = 0 THEN RETURN 
5470 IF A = 0 THEN ST$ = -W : GOSUB 1820 :AX<AI .0) = 3 
5480 A6 = 0:A7 = 0: GOSUB 2120: GOSUB 1220: GOSUB 1860: RET 
URN 

5490 REM BARRA 

5500 IF AX(AI,6) < > 0 THEN HPLOT LX,TY TO LX,BY: HPLOT R 
X.TY TO RX.BY:TY = P5 » <TY 4 BY):BY = TY 
5510 IF AX(AI.7) < > 0 THEN HPLOT LX,TY TO RX,TY: HPLOT L 
X.BY TO RX,BY:LX = P5 * (LX 4 RX):RX = LX 
5520 HPLOT LX,TY TO RX.BY: RETURN 
5530 REM X...VFNO SENZA PORTA 
5540 F = 1: GOSUB 2050 :F = 0: RETURN 
5550 REM VMO PORTA 
5560 HCQLOR= CR:MX = 262:MY = 172 

5570 IF FN HO(AI) THEN LX = LX M:LX = FN BB(LX) :RX = RX 

- 1:RX = FN BB(RX): HPLOT LX,TY TO RX,TY: HPLOT LX,B 

Y TO RX BY 

5580 IF FN ÙE(AI) THEN TY = TY 4 1:TY = FN BD<TY):BY = BY 

* 1:BY = FN BD(BY): HPLOT LX,TY TO LX,BY: HPLOT RX,T 

Y TO RX ,BY 
5590 HCOLOR= CL 

5600 IF AV.(AI,6) = 0 THEN 5670 

5610 D = XR - XL:CI = AX(AI,6):T1 = 180 » PR:T2 = 360 * PR 
5620 IF CI = 1 THEN XG = XL:YG = YB: GOSUB 2220 

5630 IF CI = 2 THEN XG = XR:YG = YB: GOSUB 2220 

5640' T2 = TI :T1 = 0 

5650 IF CI = 3 THEN XG = XR:YG = YT: GOSUB 2220 

5660 IF CI = 4 THEN XG = XL:YG = YT: GOSUB 2220 

5670 IF AX(AI,7) = 0 THEN RETURN 

5680 D = YB - YT:CI = AX(AI.7):T1 = - 90 * PR:T2 = 90 * PR 

5690 IF CI = 1 THEN XG = XR:YG = YT: GOSUB 2220 

5700 IF CI = 4 THEN XG = XR:YG = YB: GOSUB 2220 

5710 TI = T2:T2 = 270 * PR 

5720 IF CI = 2 THEN XG = XL:YG = YT: GOSUB 2220 

5730 IF CI = 3 THEN XG = XL:YG = YB: GOSUB 2220 

5740 RETURN 

5750 REM »...CERCHIO 

5760 IF W = 0 THEN RETURN 

5770 IF A = 0 THEN ST$ = ’»': GOSUB 1820:AX(AI ,0) = 5 
5780 XD = XC - XF:YD = YC - YF:D = INT ( SQR (XD * XD 4 YD 
» YD)) 

5790 AX(AI,2) = XF - D:AX(AI,4) = XF 4 D 
5800 AX(AI,3) = YF - D:A7.(AI,5) = YF 4 D 
5810 AX(AI,6) = 0:AX(AI,7) = 0 
5820 GOSUB 1220: GOSUB 1860: RETURN 


5830 

5840 

5850 


5860 


5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 


6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 


6210 

6220 


REM «...RETICOLO E TITOLO 

G$(Q) = , 0N i :G$(l) = 'QFF':G$<2) = "ON’^O) = 'OFF': 
FM = 0:G = 1 :E(0) = AX(0,3):E(1) = AX(l.l) 

GOSUB 1160: HTAB 11: INVERSE : PRINT L$(51): NORMAL : 
VTAB 4: HTAB 3: PRINT L$<52): PRINT : HTAB 3: PRINT li 
(53) 


VTAB 9: HTAB 16: PRINT L$<27): PR1I 
$(30): VTAB 14: HTAB 3: PRINT L$<4 


>)•:•: VTAB 20 


PR 


10: PRINT L$(31): PRINT : HTAB 3: PRINT L$(17) 

GOSUB 6020 

GET C$: IF C$ = ' ' AND FM = 0 THEN GOSUB 1180:6 = 0: 
RETURN 

IF C$ = ■ B AND SI = 0 THEN CALL 64477: GOTO 5880 
IF C$ = 1 1 THEN CALL 62450: GOSUB 1180:6 = 0: GOSUB 
4260: RETURN 

CC = ASC (C$) - 65: IF CC < 0 OR CC > 6 THEN 5880 
FM = 1: IF CC = 0 AND AX(0,3) = 0 THEN AMO,3) = 1:E(0 
) = 1: GOTO 6010 

IF CC = 1 AND AMO,3) = 1 THEN AMO,3) = 0:E(Q) = 0: G 
OTO 6010 


IF CC = 2 AND AMI ,1) = 0 THEN AMI,!) = 1:E(1) = 1: G 
OTO 6010 

IF CC = 3 AND AMI ,1) = 1 THEN AM1,1> = 0:E(1) = 0: G 
OTO 6010 

IF CC > = 0 AND CC < =3 imi 5880 

IF CC = 6 THEN GOSUB 6110: GOTO 5880 

F$(CC) = B —':K = 4: GOSUB 3470: VTAB 17: HTAB 3: PRIN 

T L$(33)*: *• 

GOSUB 1120: OTAB 17: CALL - 868:D(CC) = ABS ( VAL (I 
N$)):F$(CC) = ' *: GOSUB 3470:FM = 1 
SI = D(5) 4 100 * D(4):HD = SI » HR:VD = SI » VR: VTAB 
22: HTAB 36: GOTO 5880 
GOSUB 6020: GOTO 5880 
REM VOCI 

FOR J = 0 TO 1:K = 2 * J: VTAB 4 4 R : HTAB 18 

IF E(J) = 1 THEN INVERSE 

PRINT G$(K); : HTAB 28: NORMAL 

IF E(J) = 0 THEN INVERSE 

PRINT G$(K 4 1)!; NOm : NEXT 

K = 4: GOSUB 3470 

VTAB 14: HTAB 13: PRINT Tl$ 

VTAB 22: HTAB 36: RETURN 
REM TITOLO 

VTAB 14: HTAB 13: PRINT SPC( 35): VTAB 14: HTAB 13: G 

OSUB 1120:TI$ = LEFT$ (IN$.35): 'JTAB 14: HTAB 13: PRI 

NT TU;: CALL - 868: VTAB 22: HTAB 38: RETURN 

REM <...PASSO MINORE 

IF ST > 1 THEN ST = ST - 1 

RETURN 

REM >...PASSO MAGGIORE 
IF ST < 3 THEN ST = ST 4 1 
RETURN 

REM ?...AIUTO 

GOSUB 1160: INVERSE : PRINT L$(0): NORMAL : PRINT : GO 
SUB 740: PRINT : PRINT : PRINT L$(l): PRINT L$(2): PRI 
NT : PRINT : PRINT L$(17); 

GET C$: IF C$ = • ‘ THEN GOSUB 1180: RETURN 
GOTO 6210 


Variazioni per hardcopy 
con DMP e IMAGE WRITER 

• Istruzioni per stampante DMP. Copiate sul disco programma il listato 5 
seguendo le istruzioni pubblicate nella rubrica "Per chi comincia" (pagina 
60) per la copiatura dei programmi in Assembler. Al termine salvatelo 
con BSAVE HARDCOPY DMP,A$1900,L$1E5. Cancellate le linee del 
programma APPLI ARCHITECT che vanno dalla 2780 alla 2860 e sosti¬ 
tuitele con quelle del listato 4. 

• Istruzioni per stampante IMAGE WRITER. Copiate sul disco pro¬ 
gramma il listato 6 seguendo le istruzioni pubblicate nella rubrica "Per chi 
comincia" (pagina 60) per la copiatura dei programmi in Assembler. Al 
termine salvatelo con BSAVE HARDCOPY IMG,A$1900,L$543. Se¬ 
guite le istruzioni per la sostituzione delle linee del programma APPLI 
ARCHITECT riportate per la stampante DMP. Sostituite, nella linea 
2800, l’istruzione racchiusa tra virgolette BLOAD HARDCOPY DMP 
con BLOAD HARDCOPY IMG. 


Le linee 340—450 provvedono al mo¬ 
nitoring dell’input da tastiera per tutti 
i comandi validi. Poi viene compiuto 
un GOSUB al modulo appropriato. 
Le linee 460—480 eliminano la parola 
ED IT dall’angolo basso a destra della 
schermata Hi-Res e la sostituiscono 
con la prima lettera del comando di 
editing grafico. 

Le linee 490-500 ripristinano la paro¬ 
la EDIT sullo schermo Hi—Res. 

Le linee 510-630 costruiscono un 
cerchio. 

Le linee 640-730 costruiscono i carat¬ 
teri Hi—Res. 

Le linee 740—760 visualizzano il menù 
dell’editing grafico. 

Le linee 770-1100 leggono i file del 
dischetto, definiscono varie funzioni, 
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Apple 

Macintosh 

floppy 

software 

accessori 

periferiche 

compatibili 

Distribuiti in Italia 
con garanzia Italiana 
ai prezzi più bassi. 

do: C. RfìGG I 0 s u c 

56030 Perignano pi Via Spinelli 8 
tei. 0587-516207 

RI curii esempi : 

Apple //e originole 009.000 
idem o.5. prodotto Itolio 635.000 

sch.80 col +64k originale 351.000 
idem c s. pr odotto Italia 70.000 

interfaccia seriole orig. 150.000 
idem c.s. prodotto Itolia 125.000 

duodisk originale 799.000 

idem c s prodotto itolio 545 000 
drive ogg .campa*. ib. / /c 365.000 
mouse oriqinole c /man. 169 000 

monitor //e originale 259.500 

floppy 5 n e1 /4 3.390 

microfloppy 3" e 1/2 8.475 

IBM XT compatibile prodotto Italia 
XT 256k rom e 1 drive 1.849.000 
idem c.s. con 2 drive 2.129.000 
c.s con HO 10 mego 3.499 000 
c.s. con HD 20 mego 4.290.000 

... e tante altre cose a 
condizioni favolose . 

prima dì o g ni ac q uisto . 
senti le ns. proposte . . » 
da noi spendi meno! 

Listino completo inviando 4 .000 lire 
o con la primo fornitura. 

Materiali consegnati a domicilio con 
garanzio 12 mesi completo e clousolo 

SODDISFATTO 0 RIMBORSATO 
entro otto giorni 

Sconti per quantità 

I prezzi non comprendono PIALA. 

IBM è un marchio reg.lBM cor por 
Apple , Duodisk, Macintosh, sono 
marchi di appiè computer ine 


Listato 2 


io 

20 

30 

40 

50 

60 

70 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

HOME 


************************ 


MENU.CREATE 
DI I. LARRY MORRIS 
COPYRIGHT (0 1985 
BY APPLICANDO & 
M1CR0SPARC, INC 


************************ 

i VTAB 12: PRINT 'STO CREMDO IL FILE DI TESTO MENU 


90 NL = 67: DIM L$(NL) 

100 0$ = CHR$ (34) 

110 REM DEFINIZIONE CURSORE 

120 DATA 4.0,10,0.18.0.29,0,39,0 

130 DATA 32,141,58.63.183,9.36.0 

140 DATA 32,108.145,58,63,63,183.74,33.36,0 

150 DATA 12.12.223,115.22.23.77,225.7,6 

160 DATA 9.32.255.55.22,46,13,37,4,0 

170 DATA 232,64.233,3 

180 REM ESPANSIONE Hl-RES 

190 DATA 0.0.0,162,0,142,1,3,142,2,3.189,43.3.45,0,3,240,18 
.189.50.3,13.1.3,141,1,3,189,57.3,13,2,3,141,2,3,232,22 
4.7,48,225,96,64,32,16,8,4,2,1,96,24,6,1,0,0,0,0,0,0,64 
48 12 3 

200 M) = "FUNZIONI ASSEGNATE ALLA TASTIERA:" 

210 L$(l) = "T' 'J', 'K'. 'M', '<' E COIWDMO" 

220 L$(2) = "LO SPOSTAMENTO DEL CURSÓRE." 

230 L$(3) = "****************************************" 

240 L$(4) = "* APPLI ARCHITECT *" 

250 L$<5) = "* (0 1985 BY APPLIDWDO E M1CR0SPARC *" 

260 L$<6) = "A-M0D1F1CA K-DESTRA U-SGMCIA 

270 L$<7) = "B-RlQUADRO L-AGGANCIA VERIFICA 

280 L$<8) = "C-C0P1A M-IN GIU 7 U-FINESTRA 

290 L$<9) = "D-PORTA N-NUOMO X-WNO SZA PORTA 

300 L$(10) = "E-CANCELLA O-MECCHIO Y-Sr 


e visualizzano il menù di editing grafi¬ 
co come pure un invito a introdurre N 
o O. 

La linea 1110 fa GOSUB alla linea 
4810 per creare un file Architect.dir se 
non ne esiste già uno sul dischetto. 
Questo in risposta alla trappola d’er¬ 
rore impostata nella linea 1030. 

Le linee 1120—1150 costituiscono una 
routine di INPUT. 

Le linee 1160—1190 commutano fra il 
testo e le videate Hi-Res. 

Le linee 1200-1210 disegnano di nuo¬ 
vo con XDRAW i cursori mobile e 
fisso. 

Le linee 1220-1320 costruiscono un 
rettangolo se il tipo di oggetto è un 
riquadro non rotato. Altrimenti viene 
compiuto un GOSUB per la costruzio¬ 
ne di una porta, di una finestra, di un 
cerchio o di un riquadro rotato. 

Le linee 1330-1400 convertono la 
spaziatura del reticolo e le dimensioni 
della stanza in unità di scansione. Vie¬ 
ne applicato un rapporto di aspetto 
(AS) per compensare le differenze fra 
la spaziatura verticale e quella oriz¬ 
zontale. 

Le linee 1410-1490 costruiscono le li¬ 
nee del reticolo. 

Le linee 1500-1720 contengono il co¬ 
dice del comando MODIFICA. 

Le linee 1730-1810 contengono il co¬ 
dice del comando RIQUADRO. 

Le linee 1820-1850 disegnano con 
XDRAW i cursori e aggiungono un 
oggetto al buffer dati interno. Viene 


fatto un controllo per vedere se sia 
stato superato il massimo. 

Le linee 1860-1880 ripristinano 
EDIT sullo schermo Hi-Res e dise¬ 
gnano di nuovo con XDRAW i 
cursori. 

Le linee 1890-2040 contengono il co¬ 
dice del comando CERCHIO. 

Le linee 2050-2250 contengono il co¬ 
dice del comando PORTA. 

Le linee 2120-2210 determinano l’o¬ 
rientamento della porta. 

Le linee 2220-2250 costruiscono l’ar¬ 
co che illustra il movimento della 
porta. 

Le linee 2260-2370 contengono il co¬ 
dice del comando CANCELLA. 

Le linee 2400-2410 contengono il co- 


Per chi ha il //C 

La routine di Hardcopy non funzio¬ 
na sul Ile: su di esso funziona solo 
la routine di stampa in ProDos in¬ 
serita nel disco Imagewriter tool 
Kit in ProDos. Per stampare il dise¬ 
gno bisogna sceglere l’opzione 3 e 
salvarlo sul dischetto. Quindi si 
trasferisce il file contenente il di¬ 
segno, in ProDos, utilizzando l’op¬ 
zione di conversione inserita nel 
disco Utilities di Sistema del Pro¬ 
Dos. Adesso potete stampare la 
vostra piantina utilizzando il disco 
Imagewriter Tool Kit, oppure la 
routine ProDos-Dump pubblicata 
a pag. 44 di questo numero. 
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310 

L$(11) 

= 

•F-FISSA P-SPOSTA «-CERCHIO 

660 

L*<46) = *1) 7.5 CM X 10 CM * 

320 

L$(12) 

= 

"G-M1SURE Q-FINE #-RET. E TITOLO • 

670 

L$<47) = *2) 15 CM X 20 CM * 

330 

L$(13) 

= 

’H-HARDCOPY R-RIDIS. (-PASSO MINORE 

680 

L*<48) = ‘PREMI 'BARRA SPAZIO" PER FINE STMPA... 

340 

L$(14) 

= 

"I-IN SU S-SALVA )-PASSO MAGG. 

690 

L*<49) = -APPLI ARCHITECT * + CHR$ (96) ♦ *1985* 

350 

L*(15> 

= 

"J-SINISTRA T-RUOTA ’-AIUTO 

700 

LI(50) = *STO RIORGANIZZANDO IL BUFFER * 

360 

L$(16) 

= 

•PREMI 'N' 0 / 0 / PER INIZIARE. 1 

710 

L$(51) = *««♦ RETICOLO E TITOLO «««* 

370 

L$(17) 

= 

•PREMI 'BARRA SPAZIO' PER RIVEDERE..." 

720 

L*<52) = "RETICOLO A) B)* 

380 

L*(18) 

= 

•TYPE ID XL YT XR YB COS SIN" 

730 

L$(53) = -TITOLO C) D) 1 

390 

L$(19) 

= 

"**« DISTIA FRA I CURSORI *««" 

740 

L$(54) = *««« FILES DISCHETTO «««* 

400 

L*<20) 

= 

•STANZA* 

750 

L*(55) = "D-ELIMINA N-NUOVO R-RIVEDI* 

410 

L*(21) 

= 

•RIQUADRO’ 

760 

LI(56) = ’G-PRELEVA Q-FINE S-SALVA* 

420 

L$(22) 

= 

•FINESTRA* 

770 

L$(57) = 'INTRODUCI IL NOME* 

430 

L*<23) 

= 

•PORTA’ 

780 

L$<58) = '("R" RI DI SEGNA PRIM DI STAMPARE)* 

440 

L$(24) 

= 

•CERCHIO* 

790 

L$(59) = 'FUORI GAMÌA* 

450 

L$(25) 

= 

"««* MISURE «««" 

800 

L$(60) = 'RIMETTI IL DISCO PROGRtfftt NEL DRIVE* 

460 

L$(26) 

= 

•**« CREA m NUOVA STMZA *««" 

810 

L$(61) = -MASSIMO SUPERATO* 

470 

L$<27) 

= 

•METRI CENTIMETRI* 

820 

Lt(62) = 'NIENTE DATI* 

480 

L$<28) 

= 

•LARGH. A) B)" 

830 

L$<63) = 'NIENTE FILE* 

490 

L$(29) 

= 

•LUNCH. 0 D)* 

840 

L$(64) = *IL FILE ESISTE - VUOI RIVEDERLO?* 

500 

L$<30) 

= 

•DIM.RETIC, E) F)* 

850 

L$(65) = 'DISCHETTO SBAGLIATO * 

510 

L$(31) 

= 

•SCEGLI (A-G) PER MODIFICARE’ 

860 

L$(66) = “ERRORE DISCO* 

520 

L$(32) 

= 

•INTRODUCI IL NOME DEL FILE* 

870 

L$(67) = *3) STAMPA SU DISCHETTO* 

530 

L*(33) 

= 

•INTRODUCI IL NUMERO* 

880 

REM CREA ARCHITECT.MENU 

540 

Lt(34) 

= 

•SEI SICURO?* 

890 

D$ = CHR$ (4): REM CTRL-D 

550 

L*<35) 

= 

•SCEGLI (1-3)’ 

900 

PRINT D$*OPEN ARCHITECT.MENU* 

560 

L$(36) 

= 

•OGGETTO* 

910 

PRINT WCLOSE* 

570 

L$(37) 

= 

•ORIZZONTALE* 

920 

PRINT D$*DELETE ARCHITECT.MENU* 

580 

L$<38) 

= 

•VERTICALE* 

930 

PRINT D$*OPEN ARCHITECT.MENU* 

590 

L$(39) 

= 

•ACCENDI LA STAMPANTE E SISTEM LA CARTA* 

940 

PRINT D'I'WRITE ARCHITECT .MENU* 

600 

L$(40) 

= 

•PREMI UN TASTO QUANDO SEI PRONTO...* 

950 

FOR I = 0 TO NL 

610 

L$(41) 

= 

•METTI UN DISCHETTO NUOVO NEL DRIVE* 

960 

PRINT L$(I); NEXT 

620 

L*<42) 

s 

•SPAZIO BUFFER ESAURITO * 

970 

FOR I = 1 TO 117 

630 

L$(43) 

= 

•STO INIZ1ALIZZANDO * 

980 

READ X: PRINT X: NEXT 

640 

L*(44) 

= 

*»«« HARDCQPY «««* 

990' 

PRINT DVCLOSE ARCHITECT .MENU* 

650 

L$(45) 

= 

*G) TITOLO* 

1000 

HOME : VTAB 12: PRINT * FATTO*: END 


Listato 3 


10 

REM 

*********««**«««*«««««**«** 

20 

REM 

* ALPH.CREATE 

* 

30 

REM 

* (SCHEMA BIT ALFABETO) 

* 

40 

REM 

» MICROCOMPUTER GRAPHICS * 

50 

REM 

« DI RQY E. MYERS 

« 

60 

REM 

« 

« 

70 

REM 

« STAMPATO CON IL 

« 

80 

REM 

« PERMESSO DELL'AUTORE 

« 

90 

REM 

*********«M***»****«****** 

100 

HOME 

: VTAB 12: PRINT 'CREO TAVOLA 


RES.. 

> 


110 

ADDR 

= 0 : LN = 0 



120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 


DIM AL7.<64,8) 

FOR I = 0 tO 64 
FOR J = 0 TO 7 
READ ALy.d ,J) 

NEXT J,1 
ADDR = PEEK (107) 
LN = PEEK (109) + 


+ 256 » PEEK (108) 

256 * PEEK (110) - ADDR 

PRINT CHR* <4);'BSAVE ARCHITECT.ALPH, A*;ADDR;*,L*;LN 
HOME ; UTAB 12: PRINT "FATTO": END 
DATA 0,0,0,0,0,0,0,0: REM SPAZIO 
DATA 0,8.8.8,8.8.0.81 REM ' 

DATA 0,20,20,20,0.0.0,0: REM * 

DATA 0,20.20.62.20.62.20.20: REM « 

250 DATA 0,8,60,10,28,40.30.8: REM ì 
260 DATA 0,6,38,16,8,4.50.48: REM 7. 

270 DATA 0,4,10.10,4,42.18,44: REM & 

280 DATA 0,8,8,8,0,0,0,0: REM ' 

290 DATA 0,8,4.2.2,2,4.8: REM ( 

300 DATA 0,8,16,32,32.32.16.8: REM ) 

310 DATA 0,8,42.28.8.28,42,6: REM * 

320 DATA 0,0,8,8,62.8.8,0: REM + 

330 DATA 0,0,0,0,0.8.8.4: REM , 

340 DATA 0,0,0,0,62.0.0.0: REM - 
350 DATA 0,0,0.0,0,0,0,8: REM . 

360 DATA 0,0.32,16.8,4,2.0: REM / 

370 DATA 0,28,34.50,42.38.34.28: REM 0 
380 DATA 0,8.12,8.8,8,8,28: REM 1 
390 DATA 0,28,34,32,24,4.2.62: REM 2 
400 DATA 0,62,32,16,24,32,34,28: REM 3 
410 DATA 0,16,24.20.18.62,16.16: REM 4 
420 DATA 0,62,2,30,32,32,34,28: REM 5 
430 DATA 0,56,4.2,30,34,34,28: REM 6 
440 DATA 0,62,32,16,8,4,4,4: REM 7 
450 DATA 0,28,34,34,28,34,34,28: REM 8 
460 DATA 0,28.34,34,60,32,16,14: REM 9 
470 DATA 0,0,0,8,0,8,0,0: REM : 


480 DATA 0,0,0.8.0.8,8,4: REM ; 

490 DATA 0,16.8.4,2,4,8.16: REM < 

500 DATA 0,0,0,62,0.62,0.0: REM = 

510 DATA 0,4,8,16,32,16,8,4: REM > 

520 DATA 0,28,34,16,8,8.0,8: REM ? 

530 DATA 0,28,34,42,58,26,2,60: REM ì 

540 DATA 0,8,20,34,34,62,34,34: REM A 

550 DATA 0,30,34,34,30,34,34,30: REM B 

560 DATA 0,28,34,2.2.2,34,28: REM C 

570 DATA 0,30,34,34,34,34,34,30: REM D 

580 DATA 0,62,2,2,30,2,2,62: REM E 

590 DATA 0,62,2,2,30.2,2.2: REM F 

600 DATA 0,60,2,2.2,50,34,60: REM G 

610 DATA 0,34,34,34,62,34,34,34: REM H 

620 DATA 0,28,8,8,8,8,8,28: REM I 

630 DATA 0,32,32,32,32,32,34.28: REM J 

640 DATA 0,34,18,10,6,10,18,34: REM K 

650 DATA 0,2,2,2,2.2,2,62: REM L 

660 DATA 0,34,54,42,34,34,34,34: REM M 

670 DATA 0,34,34,38,42,50,34,34: REM N 

680 DATA 0,28,34,34,34,34,34,28: REM 0 

690 DATA 0,30,34,34,30,2,2.2: REM P 

700 DATA 0,28,34,34,34,42,18,44: REM Q 

710 DATA 0,30,34,34,30,10,18,34: REM R 

720 DATA 0,28,34,2,28,32,34,28: REM S 

730 DATA 0,62,8.8,8,8.8,8: REM T 

740 DATA 0,34,34,34,34,34,34,28: REM U 

750 DATA 0,34,34,34,34,34,20,8: REM V 

760 DATA 0,34,34,34,42,42,54,34: REM U 

770 DATA 0,34,34,20,8,20,34,34; REM X 

780 DATA 0,34,34,20,8,8,8,8: REM Y 

790 DATA 0,62,32.16,8,4,2,62: REM Z 

800 DATA 0,62,6.6,6,6,6.62: REM PARENTESI QUADRA SINISTRA 

810 DATA 0,0,2,4,8,16,32,0: REM BARRA INVERSA 

820 DATA 0,62,48,48,48,40.48.62: REM PRQMPT 

830 DATA 0,0,8,20,34,0,0,0: REM * 

840 DATA 0,0,0,0,0.0,0,62: REM SOTTOLINEATURA 
850 DATA 0 62,65 93,69 93,65,62: REM COPYRIGHT 
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2740 IF C* = '2* THEN NX = 3: GOTO 
‘ 2770 

2780 DL = 1500: GOSUB 2380: IF Ci 
= *R* THEN CALL 62450: GOSUB 
1180: GOSUB 4260 
2790 GOSUB 1180 

2800 PRINT D$: PRINT DTBLOAD W\ 
RDCOPY DMP* 


2810 POKE 6,1: POKE 7,NX 
2820 PRINT D$*PR#1* 

2830 PRINT E$'N* 

2840 PRINT E**>* 

2850 CALL 6400 
2855 PRINT IV <• 

2860 PRIffT D^-PRUO": RETURN 
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^JnEW™ APPLE 


SCHEDE PER ACQUISIZIONI ANALOGICHE 


Mod.: XAD-1 - n. catalogo: 060160 
A / D converter 12 bit con orologio e 4 reed relays • Sezione A / D conver¬ 
ter: 4 canali con multiplexer analogico guadagno fisso range 0-5 V uni¬ 
polari. - Stabilità di conversione = 50 ppm /C. - Tempo di conversione 
10 millisecondi per canale. - Non linearità + / - 0.1% fondo scala. - Pro¬ 
tezione input fino a + 50 V. Tecnica di conversione: integrazione. 

Mod.: XAD-2 - n. catalogo: 060161 
A / D converter 12 bit con ingressi a guadagno variabile, ingressi a gua¬ 
dagno fisso e 2 reed relays. - Sezione A / D converter: 3 canali con multi¬ 
plexer analogico con guadagno fisso 0-5 V unipolari. 2 canali con 
multiplexer analogico ingressi differenziali con guadagno variabile pro¬ 
grammabile da un range di 0-10 mV ad un range di 0-2.5 V fondo scala 
in step di ragione 2 da 1 a 128. 

Mod.: 11 04 • n. catalogo: 060162 

A / D converter 12 bit high-speed con ingressi differenziali a guadagno 
variabile. Numero canali: 8 • Ingressi: completamente diffrenziali da + / — 
0-10 mV a + / — 10 V. ■ Risoluzione: 12 bit - Tempo di conversione: 25 
microsecondi a 12 bit, 15 microsecondi a 8 bit • Guadagno: programma- 
bile in step binari da 1 a 128. 



Mod.: A/ D DI A 12 bit - n. catalogo: 060163 
A / D con verter 16 canali 12 bit veloce con D / A converter veloce 12 bit. 
Sezione A / D converter • Numero canali: 16 - Ingressi: unipolari - Tensio¬ 
ne di ingresso: 0-9 V a guadagno fisso • Tempo di conversione: 60 mi¬ 
crosecondi / canale • Sezione D / A converter: 1 canale di uscita • Livello 
di uscita: regolabile da 0-4.5 V a 0-9 V tramite trimmer multigiri ■ Polari¬ 
tà: unipolare o bipolare tramite jumper on-board. Settling time tipico: 1 
microsecondo. 

Mod.: A/D converter 16 canali 8 bit - n. catalogo: 060165 
A / D converter veloce ed economico • Canali: 16 unipolari a guadagno 
fisso • Tensione ingresso: 0-5 V • Tempo di conversione: 100 microse¬ 
condi / canale. 

Mod.: A/ A DI A 8 bit - n. catalogo: 060166 
A / D converter 16 canali 8 bit con D / A converter 1 canale 8 bit ■ Sezione 
A / D converter: - Risoluzione: 8 bit • Numero canali: 16 - Ingressi: unipo¬ 
lari a guadagno fisso • Sensibilità ingressi: 0-5 V - Tempo di conversio¬ 
ne: 100 microsencondi / canale • Sezione D / A converter: Numero canali: 
1. Risoluzione: 8 bit - Output: unipolare, 0-5 V - Tempo di conversione: 
1 microsecondo. 

Mod.: DI A converter 8/16 bit con output TTL • n.ca- 
talogo: 060164 

D / A converter 8 bit 2 canali con possibilità di miscelazione tensioni out¬ 
put e 2 canali output a livello TTL - Sezione D / A converter - Risoluzio¬ 
ne: 8 o 16 bit • Numero canali: 2 a 8 bit o 1 a 16 bit - Tensione uscita: 
0-10 V floating, regolabile con trimmers multigiri - Settling time: 1 mi¬ 
crosecondo • Commutazione canali: via software, tramite multiplexer ana¬ 
logico ■ Sezione TTL port: Numero porte: 2 • Output: livello TTL 
compatibile, sink 20 mA, totem-pole. 

Parallel Port Interface • n. catalogo 050121 
L’interfaccia PARALLEL PORT è una scheda di interfaccia parallela ge¬ 
neralizzata con capacità di servire sino a 24 porte I / O. 

Essa sfrutta le doti di programmabilità dell’8255 INTEL lasciando all’uti- 
lizzatore la specializzazione delle porte I/O. 


A/D D/A CONVERTER PER IBM PC compatibile. 


Mod.: A/D D/A converter 12 bit • n. catalogo: 095163. 

A / D D / A converter 12 bit 16 canali con D / A converter 12 bit singolo 
canale • Sezione A / 0 converter - Risoluzione: 12 bit (4096 punti) • Nu¬ 
mero canali: 16 con multiplexer analogico - Velocità conversione: 25 mi¬ 
crosecondi/canale - Ingressi: unipolari a guadagno fisso - Tensione 
ingressi: 0-9 V aggiustabile con trimmer multigiri ■ Sezione D / A conver¬ 
ter. ■ Risoluzione: 12 bit (4096 punti) ■ Tensione uscita: 0-9 V aggiustabi¬ 
le con trimmer multigiri - Modo uscita: unipolare o bipolare (selezionabile 
con jumper) - La schedina è dotata di connettore I / O tipo CANNON DB25 
femmina, e viene fornita con manuale operatore in lingua inglese e di¬ 
schetto dimostrativo. 

RICHIEDETE CATALOGO: 

OLTRE 90 PRODOTTI PER APPLE E IBM 

periferiche 

■■ U L^Ll—O U LSLb TELECOMUNICAZIONI 

TORINO - VIA ORMEA, 99 - TEL. 011/655.865 
CONDIZIONI PARTICOLARI PER DEALER E HOBBISTI 
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A9 

OD 

20 

B7 

1A 

A9 

0A 

20 

1BB0- 

09 

00 

00 

54 

48 

00 

01 

01 

1D80- 

68 

00 

44 

28 

10 

28 

44 

00 

19E8- 

B7 

1A 

68 

68 

10 

9E 

68 


1BB8- 

1F 

01 

01 

00 

00 

55 

48 

00 

1D88- 

00 

79 

68 

00 

04 

08 

70 

08 

19F0- 

85 

1A 

68 

85 

18 

48 

8A 

48 

1BC0- 

0F 

10 

10 

10 

0F 

00 

00 

56 

1D90- 

04 

00 

00 

7A 

68 

00 

44 

64 

19F8- 

A9 

00 

85 

06 

A2 

08 

DO 

06 

1BC-8- 

48 

00 

07 

08 

10 

08 

07 

00 

1D98- 

54 

4C 

44 

00 

00 

31 

68 

00 

1AQ0- 

80 

74 

30 

DO 

10 

E8 

A4 

19 

1BD0- 

00 

57 

48 

00 

0F 

10 

OC 

10 

1DA0- 

00 

00 

7C 

00 

00 

00 

00 

32 

1A08- 

81 

1A 

25 

08 

C9 

01 

66 

06 

1BD8- 

0F 

00 

00 

58 

48 

00 

11 

0A 

1DA8- 

68 

00 

00 

48 

64 

54 

4C 

00 

1A10- 

CA 

24 

07 

10 

08 

A5 

09 

49 

1BE0- 

04 

0A 

11 

00 

00 

59 

48 

00 

1DB0- 

00 

33 

68 

00 

00 

54 

54 

54 

1A18- 

01 

85 

09 

DO 

E9 

18 

A5 

1B 

1BE8- 

01 

02 

1C 

02 

01 

00 

00 

5A 

1DB8- 

7C 

00 

00 

34 

68 

00 

10 

18 

1A20- 

69 

04 

A0 

1C 

84 

09 

24 

09 

1BF0- 

48 

00 

11 

19 

15 

13 

11 

00 

1DC0- 

14 

7C 

10 

00 

00 

35 

68 

00 

1A28- 

DO 

25 

06 

1A 

90 

1D 

69 

E0 

1BF8- 

00 

21 

48 

00 

00 

00 

1F 

00 

1DC8- 

00 

5C 

54 

54 

74 

00 

00 

36 

1A30- 

18 

A0 

04 

84 

09 

24 

09 

F0 

1C00- 

00 

00 

00 

22 

48 

00 

00 

12 

1DD0- 

68 

00 

00 

78 

54 

54 

74 

00 

1A38- 

14 

A5 

1A 

69 

50 

49 

F0 

F0 

1C08- 

19 

15 

13 

00 

00 

23 

48 

00 

1DD8- 

00 

37 

68 

00 

00 

44 

24 

14 

1A40- 

02 

49 

F0 

85 

1A 

A5 

1B 

29 

1C10- 

00 

15 

15 

15 

1F 

00 

00 

24 

1DE0- 

OC 

00 

00 

38 

68 

00 

28 

54 

1A48- 

E0 

90 

02 

69 

E0 

66 

1A 

85 

1C18- 

48 

00 

04 

06 

05 

1F 

04 

00 

1DE8- 

54 

54 

28 

00 

00 

39 

68 

00 

1A50- 

1B 

A9 

00 

85 

09 

E0 

00 

DO 

1C20- 

00 

25 

48 

00 

00 

17 

15 

15 

1DF0- 

00 

48 

54 

54 

38 

00 

00 

30 

1A58- 

AD 

A5 

06 

24 

07 

70 

02 

49 

1C28- 

1D 

00 

00 

26 

48 

00 

00 

1E 

1DF8- 

68 

00 

00 

38 

44 

44 

38 

00 

1A60- 

FF 

20 

87 

1A 

24 

07 

10 

08 

1C30- 

15 

15 

1D 

00 

00 

27 

48 

00 

1E00- 

00 

3A 

68 

00 

54 

38 

10 

38 

1AÓ8- 

A5 

09 

49 

01 

85 

09 

DO 

E9 

1C38- 

00 

11 

09 

05 

03 

00 

00 

28 

1E08- 

54 

00 

00 

2D 

68 

00 

10 

10 

1A70- 

06 

08 

30 

8E 

10 

8E 

85 

07 

1C40- 

48 

00 

0A 

15 

15 

15 

0A 

00 

1E1Q- 

10 

10 

10 

00 

00 

3B 

68 

00 

1A78- 

A9 

18 

20 

B7 

1A 

A9 

41 

20 

1C48- 

00 

29 

48 

00 

00 

12 

15 

15 

1E18- 

10 

10 

7C 

10 

10 

00 

00 

2F 

1A80- 

B7 

1A 

A9 

OD 

20 

B7 

1A 

A9 

1C50- 

0E 

00 

00 

40 

48 

00 

00 

0E 

1E20- 

68 

00 

40 

20 

10 

08 

04 

00 

1A88- 

0A 

20 

B7 

1A 

A9 

1B 

20 

B7 

1C58- 

11 

11 

0E 

00 

00 

3C 

48 

00 

1E28- 

00 

2C 

68 

00 

00 

00 

38 

44 

1A90- 

1A 

A9 

44 

20 

B7 

1A 

A9 

00 

1C60- 

00 

00 

0E 

11 

00 

00 

00 

3E 

1E30- 

00 

00 

00 

2E 

68 

00 

00 

00 

1A98- 

20 

B7 

1A 

A9 

20 

20 

B7 

1A 

1C68- 

48 

00 

00 

00 

11 

0E 

00 

00 

1E38- 

44 

38 

00 

00 

00 

04 

18 

44 

1AA0- 

60 

AA 

A4 

FC 

B9 

89 

CO 

29 

1C70- 

00 

3F 

48 

00 

10 

08 

04 

02 

1E40- 

00 

20 

FF 

00 
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dice del comando FISSA. 

Le linee 2420—2680 contengono il co¬ 
dice del comando PRELEVA DATI. 
Le linee 2690-2980 contengono il co¬ 
dice del comando HARDCOPY. I no¬ 
mi delle videate Hi-Res salvate su 
dischetto vengono contrassegnati con 
il prefisso "PIC.". 

Le linee 2990-3000 vengono richia¬ 
mate solo quando il cursore incontra 
un muro esterno. Viene utilizzato un 
ritardo per produrre un lampeggia¬ 
mento momentaneo. 

Le linee 3010-3180 contengono il co¬ 
dice del comando AGGANCIA. 

Le linee 3190-3640 contengono il co¬ 
dice del comando NUOVO. 

Le linee 3650-4040 contengono parte 
del codice del comando SALVA (e 
così pure del comando VECCHIO). 
Le linee 4050—4190 contengono il co¬ 
dice del comando SPOSTA. 

Le linee 4200—4230 contengono il co- 
codice del comando FINE. 

Le linee 4240—4470 contengono il co¬ 
dice del comando RIDIS. 

Le linee 4370—4470 eliminano dal buf¬ 
fer interno tutti gli oggetti cancellati 
(nulli) e gli oggetti non agganciati che 
sono completamente fuori del muro 


perimetrale. 

Le linee 4480-4910 contengono il re¬ 
sto del codice del comando SALVA (e 
così pure del comando VECCHIO). 
Le linee 4920-5190 contengono il co¬ 
dice del comando RUOTA. 

Le linee 5080-5190 costruiscono un 
rettangolo rotato. 

Le linee 5200-5270 contengono il co¬ 
dice del comando SGANCIA. 

Le linee 5280-5440 contengono il co¬ 
dice del comando VERIFICA. 

Le linee 5450-5520 contengono il co¬ 
dice del comando FINESTRA. 

Le linee 5530-5740 contengono il co¬ 
dice del comando VANO SZA. 
PORTA. 

Le linee 5550-5740 costruiscono l’a¬ 
pertura per entrambi i tipi di porta. 
Le linee 5750—5820 contengono il co¬ 
dice del comando CERCHIO. 

Le linee 5830-6120 contengono il co¬ 
dice del comando RET. E TITOLO. 
Le linee 6130-6150 contengono il co¬ 
dice del comando PASSO MINORE. 
Le linee 6160—6210 contengono il co¬ 
dice del comando PASSO MAG¬ 
GIORE. 

Le linee 6190-6220 contengono il co¬ 
dice del comando AIUTO. 


Miglioramenti 

Il cursore mobile (x) è comandato 
dai tasti I, J, K e M a passi di 1, 2 e 3 
centimetri. Quando si lavora a un lo¬ 
cale di grandi dimensioni questa ma¬ 
novra può essere lenta quanto è accu¬ 
rata. Potreste aggiungere un’opzione 
"rapida", con o senza joystick, per ac¬ 
celerare lo spostamento del cursore 
(linee 180-270). 

Il comando HARDCOPY è impo¬ 
stato per il funzionamento sulla stam¬ 
pante Epson MX-80 con il Graftrax e 
un’interfaccia parallela Apple-Cen¬ 
tronics nello slot 1. Per l’adattamento 
alla stampante DMP o IMAGE WRI- 
TER occorre modificare le linee 
2780—2860 come indicato nel listato 4. 

Infine nessuna delle combinazioni 
del tasto CTRL viene utilizzata dal 
programma come comando. Perciò 
potreste provvedere a ulteriori funzio¬ 
ni con l’impiego del tasto CTRL modi¬ 
ficando le linee 340-450. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- k 

® 1985 by Nibble e Applicando 



Speciali confezioni, in formato 
economico, studiate appositamente per 
la pulizia dei minicomputers, contengono 
prodotti, facili da usare, che assicurano 
una corretta protezione dei video, 
tastiere, drive 3"1/2, 5" 1/4. 
In vendita anche presso i negozi Buffetti. 


TUTTO 

PER LA PULIZIA 
DEL COMPUTER 


La polvere, il fumo, le contaminazioni 
esterne, possono deteriorare le 
apparecchiature o cancellare i dati. 
Un costante uso dei prodotti pulizia, 
mantiene inalterati dischi, nastri, 
superfici, carte di credito, ecc. 

Tutti i prodotti sono omologati dalle 
migliori case prodottici di drive. 


Distributore esclusivo per l'Italia 



00199 Roma, Via Catalani, 23 - Tel. 8392646-8393438 - Telex 621288 
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Js? Arrivano, finalmente arrivano gli hard-disk per Macintosh: 
<<&/sul mercato italiano sono disponibili, per ora, quattro marche. 
j&r Come si installano? Quanto costano? Quanta memoria 

hanno? E i manuali? E il software? Ecco le istruzioni per l'uso. 


Tutti i data 
che vorrai 


ffM a scrivania degli anni 80": così 

■■ era stato definito Macintosh al¬ 
la sua prima apparizione; ma da quel 
giorno ha fatto grossi passi avanti: sta 
diventando sempre più la soluzione 
ideale, anche all’interno delle grandi e 
medie aziende, per la gestione dell’of¬ 
fice automation (in senso lato) dei sin¬ 
goli uffici. 

Tuttavia una colpa gli è stata sempre 
fatta: quella di avere dei drive poco 
capienti, in relazione alle potenzialità 
della macchina; ebbene, oggi questo 
problema è superato, poiché è possibi¬ 
le collegare al Mac degli Hard-Disk 
con capacità di immagazzinamento di 
dati varianti dai 5 ai 110 Megabyte. 

Sul mercato italiano sono presenti 
solo tre marche, SUNOL, CORVUS e 
APPLE, anche se solo le prime due 


sono già effettivamente commercializ¬ 
zate: infatti per l’Hard—Disk Apple 
l’introduzione sul mercato è stata pre¬ 
vista per la fine dell’anno corrente. 

Ma andiamo a vedere in dettaglio le 
caratteristiche di ciascun modello. 

• SUNOL (versioni esistenti da 
10,25,45,96,110 Mb), distribuito da 
Cesac, via Bergamo 18, Milano, tele¬ 
fono 02/5450036. La prima impressio¬ 
ne che si ha di questo modello di 
Hard—Disk non è certo favorevole, 
soprattutto per la sua linea massiccia e 
grossolana. Ma a un esame più attento 
ci si accorge che l’estetica è stata sacri¬ 
ficata a favore di una tecnica migliore. 
Innanzitutto è stato previsto lo spazio 
per l’unità di back—up a nastri magne¬ 
tici (opzionale) capace di trasferire 21 


Megabyte in circa 30 minuti; inoltre 
trova spazio al suo interno anche una 
ventolina di raffreddamento sufficien¬ 
temente silenziosa. 

La confezione comprende tutto il 
necessario per l’interfacciamento di 
questo Hard—Disk al Mac, sia per l’u¬ 
tilizzo in rete Apple Talk (AT), sia per 
utenti singoli. Il tutto è corredato dal 
software di sistema, da usare per l’in¬ 
stallazione, e da un manuale molto 
chiaro per chi conosce bene l’inglese. 
Tuttavia l’installazione è quanto di più 
semplice si possa immaginare, ed è 
guidata da programma. Essa prevede 
la possibilità di dividere il drive fisico 
in tanti drive virtuali (fino a 7), e ognu¬ 
no di essi può essere suddiviso in più 
volumi, aventi capienza variabile dai 
400 Kb agli 8 Mb. Il vantaggio di avere 



Sunol è interfacciabiie con il Mac e utilizzabile in rete Apple Talk. Il manuale, in inglese, è molto chiaro. 
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più drive virtuali risulta molto eviden¬ 
te quando si usano i modelli dai 45 Mb 
in su, in quanto velocizza un eventuale 
back—up di tutti i dati. 

È possibile utilizzare tutto il softwa¬ 
re in commercio per il Mac, a patto di 
avere come disco di start—up, che può 
essere personalizzato, un dischetto su 
cui sia installato il System presente sul 
disco di installazione del Sunol. Un 
altro accorgimento per evitare incon¬ 
venienti di sovrapposizione di Archivi 
appunti, è che ogni utente lavori su un 
volume al cui interno, oltre agli appli¬ 
cativi o ai dati, sia presente un proprio 
System e un proprio Finder. 

È stato anche previsto l’uso di una o 
più password, richieste allo startup del 
sistema, per proteggere la sicurezza 
dei propri dati o evitare che qualche 
curioso giocherellone possa distrugge¬ 
re qualcosa. 

Le ultime due caratteristiche, poco 
importanti per il single-user, ma mol¬ 
to richieste dalle grandi aziende, sono 
la possibilità di collegare questo 
Hard-Disk, attraverso una rete (ad 
esempio la rete AT) e tanti Multiple- 
xer, a macchine diverse tra loro (IBM, 
Apple //, Sirius 1, Victor 9000...), e 
poi la possibilità di avere lo spooling di 
stampa, cioè poter mandare un docu¬ 
mento in stampa e avere la macchina 


libera per altri lavori contemporanea¬ 
mente. 

• CORVUS (Versioni esistenti da 5.5, 
11.1,16.6e45.1 Megabyte), distribui¬ 
to da Cifradieci, c.p. 58, Zola Predosa 
(BO), telefono 051/752264. Questa 
casa americana è stata una delle prime 
nel mondo a introdurre il concetto di 
reti locali a basso costo con Hard— 
Disk, ed era quindi facilmente imma¬ 
ginabile che preparasse qualcosa per il 


L’Hard-Disk Apple da 20 Mb si colloca 
proprio sotto il Macintosh. Non è 
collegabile in rete. 


Macintosh. Questo "qualcosa" si chia¬ 
ma OmniDrive, ed è un Hard—Disk 
in tecnologia Winchester che, come il 
Sunol, può essere usato in reti locali 
AT, oppure da singoli utenti. Estetica- 
mente si presenta con una linea più 
aggraziata che richiama in qualche 
modo il look della casa di Cupertino. 

Ovviamente il prodotto è stato stu¬ 
diato in modo tale da poter lavorare, 
attraverso la rete AT e la rete Omni- 
Net, in collegamento con macchine di 
case diverse, e può disporre di un Print 
Server (opzionale) capace di gestire lo 
spooling di stampa. 

L’installazione di questo Hard— 
Disk è molto semplice e non comporta 
studi particolari; essa permette di sud¬ 
dividere il disco fisico in più volumi 
con capienze variabili da 400 Kbyte a 
16 Mbyte. La documentazione che ac¬ 
compagna la macchina è molto chiara 
e guida l’utente passo passo in ogni 
fase della prima installazione. Nella 
confezione si trova anche un disco di 
sistema, che oltre a provvedere all’in¬ 
stallazione, permette di creare un di¬ 
schetto di star—up automatico che ri¬ 
chiama i volumi da usare; ovviamente 
ogni utente può personalizzare tale di¬ 
schetto. Questo disco di sistema, chia¬ 
mato OmniTalk, è compatibile con 
qualsiasi versione di Finder, e provve¬ 
de a creare diversi tipi di volumi a 
seconda delle varie esigenze: volumi 
privati (a cui possono accedere utenti 
autorizzati), volumi pubblici (destina¬ 
ti a tutti solo in lettura), volumi con¬ 
trollati (non è possibile accedere allo 
stesso volume in più di un utente) e 
volumi liberi (disponibili a tutti gli 


WINCHESTER: CHE COS’È? 

La tecnica di registrazione delle unità Winchester è analoga a quella dei 
normali floppy disk: le informazioni vengono registrate magneticamente 
e memorizzate in cerchi concetrici su dischi. La tecnologia Winchester 
però usa un piatto di metallo rigido rivestito di materiale magnetico, 
pulito e lucidato a specchio. Questo piatto, quando l’unità viene alimenta¬ 
ta, ruota continuamente in una camera d’aria filtrata da eventuali impuri¬ 
tà. 

Le caratteristiche dimostrano come i dischi Winchester siano per costru¬ 
zione molto più precisi e come possano memorizzare nello stesso spazio 
molte più informazioni. Una micro unità whinchester, che si colloca nello 
stesso spazio di una unità microfloppy del Mac, memorizza 5 o 10 megaby¬ 
te a confronto dei 400, o 800 se doppia faccia, di un microfloppy. Altro 
vantaggio non indifferente è la velocità di memorizzazione dei dati che 
può arrivare a essere anche dieci volte più elevata. Ovviamente anche il 
costo delle unità Winchester è molto più alto di quello dei floppy: si va 
infatti da 4 a 10 volte di più. 
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Tabella comparativa degli hard-disk disponibili per Macintosh 


©^[fmTTIIflSTrai 

APPLE 

appiè 

CORVUS 

cifradieci 

SUNOL 

cesac 

IOMEGA 

telcom 

HYPER- 

DRIVE 

QUARK 

TECMAR 

CAPACITA’ 

20 MB 

10 MB 

10 MB 

7TT 

5 MB 

10 MB 

10 MB 

5 MB 

CONNESSIONE 

Drive 

Stp 

Mdm 

Stp/Mdm 

Interno 

Drive 

Stp/Mdm 

PROTEZIONE D'ACCESSO 


• 

• 


• 

• 


SPOOLING DI STAMPA 


• 

• 

• 



• 

BACK UP DEI DATI 

• 

• 

• 

• 

• 


• 

MULTIUTENZA 


• 

• 





PREZZO (Lit X 000) 

ir 

Lit. 3.500 

$ 3.880 

Lit. 5.460 

•k 

Lit. 5.400 

$ 2.195 

$ 1.995 

$ 1.995 

P©(RTI ©OSPOMIOU 








MODEM 

• 


• 


• 

• 


STAMPANTE 

• 

• 

• 

• 

• 

• 

• 

APPLETALK 


• 

• 

• 

• 

• 

• 

DRIVE ESTERNO 

• 

• 

• 

• 

• 


• 

PAomaoNB 








GESTIBILE DA UTENTE 

• 

• 

• 


• 



N.MAX PARTIZIONI 

0 

0 

0 

5 

32 

63 

20 

MAX.VOLUMI A VIDEO 

12 

8 

4 

5 

8 

4 

4 


* A _ 

Prezzo indicativo Q Previsto O ,n b ase all'impostazione data Stp = stampante Mdm = modem 

** Capacità di ogni singola cartuccia. Si utilizza una sola cartuccia per volta, ma si possono creare un numero illimitato 
di cartucce contenenti diversi archivi e/o programmi 



• Disk drive da 640 K formattati per sistemi operativi DOS 3.3*, ProDos*, Pascal*, CP/1W 

• Controller per due disk drives da 640 K o da 143 K 

• AM 10 buffer programmabile (spooler) da 64 a 256 K 

• Interfaccia Macintosh*/Apple Ile* - stampante grafica standard Centronics* 

• Espansioni di memoria da 128 K RAM, gestiti con disco virtuale 

• marchi registrati _ 

In vendita presso i migliori F^j s. p a 

computer shop kSiS Buia/ud tei. 0432-901014 tu450608 
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Corvus è molto semplice da installare; 
la memoria è scomponibile in più 
volumi : da 400 Kb fino a 16 Mb. 


utenti sia in lettura che in scrittura). 

Anche questo Hard-Disk può uti¬ 
lizzare tutto il software già prodotto 
per Macintosh. 

• APPLE (versione unica da 20 Mby¬ 
te), distribuito da Apple Computer, 
via Borio 5, Reggio Emilia, telefono 
0533/32646. Di questo Hard—Disk, 
costruito in tecnologia Winchester, 
non vi è molto da dire, visto che sarà 
presente sul mercato italiano verso la 
fine di quest’anno. Per le poche prove 
effettuate e per le altrettanto poche 
notizie tecniche che è stato possibile 
reperire, di questa macchina colpisce 
la velocità di esecuzione. 

La confezione comprenderà oltre 
alla macchina anche un manuale uten¬ 
te e un dischetto di sistema, capace di 
provvedere allo start—up e di installa¬ 
re i driver relativi a Finder, Image 
Writer e File System. 

Il File System è una struttura gerar¬ 
chica di file che garantisce un modo 
semplice e facile di manipolare grandi 
quantità e livelli multipli di file. 


È da notare che questo Hard-Disk 
non può essere collegato in rete AT, e 
quindi esso è destinato a un’utenza 
che, dovendo gestire grosse moli di 
dati, deve farlo in modo rapido ed effi¬ 
ciente; in particolare è consigliato al 


singolo professionista o alla picco¬ 
la—media azienda, che con un Mac e 
questo Hard—Disk deve sviluppare 
Word—Processing, archiviazione dati, 
analisi finanziaria, mailing-list, ecc. 

Alfonso Scoppetta 


dimensione prestazioni 

Jll'l DrYTCMTA DCD I ’ADDI C APPLE II e Ile, sistemi operativi: 

*IU rU I CINZ.A rCri L ArrLC DOS 3.3, diversi DOS, PRODOS, CP/M 2.2 (vers. 56K), PASCAL 1.1 e 1.2 



5ISC DRIVE 
5FAP 960 
40 KByte 
ormattati) 

• scheda 
controller 






h 


1 



DOPPIO DISC DRIVE 
SFAP 961 
1280 KByte 
(formattati) 
+ scheda 
controller 
+ alimentatore 



DATATECH s.p.a. 

Centro Direzionale Mitanofiori 
Strada 7 - Palazzo TI - 20089 ROZZANO (MI) 
Tel. (02) 82.43.382 
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Avviate il motore e infilate casco e guanti: sta per avere inizio il 
9^ Grand Prix! Un programma in Applesoft di grafica in alta 

risoluzione porta sullo schermo una corsa d’auto stile arcade. 

Fra le sue caratteristiche: tre livelli di gioco, la velocità variabile e 
persino una sosta ai box. Fondamentale, quest’ultima, perché... 

Il rally 
più pazzo del mondo 



DOS 3.3 

: 


ProDOS 
APPLE //e 
APPLE //c 



L a pista è tortuosissima e nessuno, 
da tempo immemore, si è curato 
di rattopparne il fondo cosparso di veri 
e propri crateri; ne testimoniano le 
molte carcasse di automobili abbando¬ 
nate, in modo pericolosamente casua¬ 


le, un po’ dovunque lungo il percorso; 
oltre tutto, scarseggia il carburante e 
non bisogna fare troppo i disinvolti a 
proposito di manutenzione... E, natu¬ 
ralmente, bisogna correre, correre a 
più non posso. 


È un gioco individuale, che presenta 
tre livelli con input da paddle o da 
tastiera. Durante la gara il programma 
visualizza il tempo trascorso, il giro 
che state percorrendo e la quantità di 
benzina restante. Non scordate asso- 








lutamente di fare rifornimento quan¬ 
do giocate al livello tre; se trascurate la 
sosta ai box ed esaurite il carburante 
verrete penalizzati. 

Come si usa 
il programma 

Per cominciare il gioco basta fare 
RUN GRAND.PRIX. Il programma 
chiederà prima se si vogliono leggere 
le istruzioni di gioco, che spiegano la 
differenza fra la pista per principianti, 
la pista di prova e la pista di campiona¬ 
to. Vengono spiegati anche i comandi 
di guida e le penalità per la fine del 
carburante e l’urto contro un ostacolo. 

Alla fine delle istruzioni vi viene 
chiesto di scegliere il metodo di input: 
paddle 0, paddle 1 o tastiera. Oltre al 
metodo di immissione verrete invitati 
a scegliere anche il livello di difficoltà 
della pista. Una volta prese queste de¬ 
cisioni viene visualizzata la pista, e 
premendo un tasto ha inizio la corsa. 


Come funziona 

Per digitare GRAND.PRIX inseri¬ 
te dapprima il programma in Apple¬ 
soft, visibile nel listato 1 , e salvatelo su 
dischetto con il comando: 


SAVE GRAND.PRIX 


Accedete poi al monitor con CALL- 
151 per introdurre la tavola delle figu¬ 
re visibile nel listato 2 e salvatela su 
dischetto con il comando: 


BSAVE RACER. 
SHAPES,A$1000,L$CB 


Come in molti giochi d’azione scritti 
in BASIC, la velocità d’esecuzione è 
stata un criterio importante nella pro¬ 
gettazione del GRAND.PRIX. Le su¬ 
broutine usate più di frequente sono 
situate presso l’inizio del programma, 
per accelerare la scansione da parte 


dell’Apple delle linee cui fanno riferi¬ 
mento le istruzioni GOSUB. Inoltre 
sono state omesse le variabili con indi¬ 
ce specificate da istruzioni NEXT, in 
modo che il computer non debba con¬ 
trollare se la variabile sia stata specifi¬ 
cata con NEXT nella più recente istru¬ 
zione FOR. Infine, con qualche ecce¬ 
zione secondaria, le variabili che l’Ap¬ 
ple incontra per prime durante l’ese¬ 
cuzione del programma sono allocate 
all’inizio della tavola delle variabili. E 
per questa ragione che prima della li¬ 
nea 1200, che contiene variabili neces¬ 
sarie solo in parti del programma in cui 
la velocità non è fattore importante, è 
stata inserita la linea 1190, che contie¬ 
ne variabili utilizzate nella parte attiva 
del programma principale. Potete no¬ 
tare che è stato necessario reintrodur¬ 
re alcune delle variabili della linea 
1190 a linea 1070 nella routine di ini- 
zializzazione. 

La presentazione del gioco ha inizio 
a linea 1150. Le linee 1220 e 1230 cari¬ 
cano con BLO AD la tavola delle figu- 
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re e fissano a $1000 il puntatore d’ini¬ 
zio della tavola. La linea 1240 propone 
la visualizzazione delle istruzioni di 
gioco, e se la risposta è affermativa il 
programma percorre le linee 
1270—1550. Se non vengono scelte le 
istruzioni il programma fa una dirama¬ 
zione diretta a linea 1560 per la scelta 
del modo di input (cioè paddle o ta¬ 
stiera). 


Il loop di inizializzazione che comin¬ 
cia a linea 940 fa diverse cose. Dappri¬ 
ma imposta certe variabili sui loro va¬ 
lori d’inizio del gioco, poi riceve con 
GET il livello di gioco, va con GO- 
SUB a leggere i record del livello scel¬ 
to, e quindi predispone lo schermo per 
la partenza della corsa. 

La linea 1050 è piuttosto interessan¬ 
te. Senza l’istruzione IF-THEN i file 


di testo che tengono i record verrebbe¬ 
ro letti sul dischetto a ogni inizio di 
partita. Se le condizioni NR = 0 e A% 
= T% reggono allora i record sono 
semplicemente prelevati in memoria 
senza accedere al disco. Il GOSUB 
1710 salta la porzione di lettura dei file 
della routine che legge i record, rispar¬ 
miando tempo e riducendo il logorio 
del drive. 


LISTATO 1 - GRAND. PRIX 


1 

REM 

a********************* 

2 

REM 

* 

GRAND.PRIX 

* 

3 

REM 

* 

DI MIKE ROHPER 

* 

4 

REM 

* COPYRIGHT (0 1985 * 

5 

REM 

* 

BY APPLICANDO & 

* 

6 

REM 

* 

MICROSPARC INC, 

* 

7 

REM 

a********************* 


10 TEXT : HOME : GOSUB 2140 

20 GOSUB 950: GOTO 590 

30 REM *** MOVIMENTI PADDLE *** 

40 IF PEEK (Pia + PDV) > 127 THEN SPX = SPV 4 1: IF SPV > 

5 THEN SPV = 1 

50 IF PDL (PD/O < 35 THEN X = X - 3 - (SPV - 3) * (SPV ) 3 
): IF X < 85 THEN X = 85 

60 IF PDL (PD’O > 230 THEN X = X ♦ 3 ♦ (SPV - 3) * (SFA > 
3): IF X ) 205 THEN X = 205 
70 RETURN 

80 REM *** MOVIMENTI TASTIERA *** 

90 KEYV = PEEK (KBV): IF KET/ = 211 THEN P0KE - 16368,0: 

SFA = SFA U : IF SFA > 5 THEN SFA = 1 
100 IF KEYV. = 136 THEN DIRV = 1 

110 IF KEYV = 160 THEN DIRV = 2 

120 IF KEYV = 149 THEN DIRV = 3 

130 QN DIRV GOSUB 140,150,160: RETURN 

140 X = X - 3 - (SPV - 3) * (SPV > 4): IF X < 85 THEN X = 8 
5 

150 RETURN 

160 X = X ♦ 3 ♦ (SPV - 3) * (SPV > 4): IF X > 205 THEN X = 
205 

170 RETURN 

180 REM »** LIVELLO 3 *** 

190 HC0L0R= 0: DRAW CTRV ♦ 2 AT 110.155: 0N CTRV GOSUB 230, 
240,250.260.280,290: IF CTRV ♦ I > 6 THEN LAP = LAP ♦ 1 
: VTAB 22: HTAB 39: PRINT LAP;:CTRV = 0: IF LAP = 10 TH 
EN POP : GOTO 780 

200 HC0L0R= 3: DRAW CTRV ♦ 3 AT 110,155: QN < CTR"/. ♦ 1) G0SU 
B 230,240,250,260,280.290: IF CTRV + 3 = 8 AND LAP = 8 
THEN DRAW 12 AT 165,12 

210 IF CTRV + 3 = 8 AND LAP = 9 THEN HC0L0R= 0: DRAU 12 AT 
165.12: HC0L0R= 3: DRAU 13 AT 165,12 
220 RETURN 

230 HPL0T 125.159 T0 125,110 T0 105,70 T0 125,3: HPL0T 155, 
159 T0 155.110 T0 135,70 T0 155,3: DRAU 1 AT INT ( RND 
(FL) * 25) 4 128,125:FL = N0T FL: RETURN 
240 HPL0T 125,159 T0 85,100 T0 85,90 T0 110,50 T0 125,3: HP 
LOT 155,159 T0 115,100 T0 115,90 T0 140,50 T0 155,3:RDM 
= INT ( RND (FL) * 10) 4 122: DRAU 2 AT RDM,20: DRAU 
2 AT RDM 4 15,20: DRAU 2 AT RDM - 3,28:FL = N0T FL: RE 
TURN 

250 HPL0T 125.159 T0 100.120 T0 100.100 T0 150.50 TO 125.3: 
HPL0T 155,159 T0 130.120 T0 130,100 T0 180,50 T0 155.3 
: DRAU 1 AT INT ( RND (FL) » 20) 4 103,110 - INT ( ftN 
0 (0) * 30):FL = N0T FL: RETURN 
260 HPLOT 125,159 TO 125,140 T0 90,90 TO 125,40 TO 125,3: H 
PLOT 155,159 TO 155,140 T0 190,90 T0 155,40 T0 155,3: H 
PLOT 140,110 T0 125,90 TO 140,70 T0 155.90 T0 140.110 
270 RDM = RND (FL): DRAU 1 AT INT (RDM * 25) 4 128,30: DR 
AW 1 AT INT (RDM * 10) 4 102.100: DRAU 1 AT INT (RDM 
* 10) 4 150,80:FL = NOT FL: RETURN 
280 HPLOT 125,159 TO 150.110 TO 150,100 TO 175,60 T0 125.3: 
HPLOT 155.159 T0 180.110 TO 180,100 T0 205,60 T0 155,3 
: DRAU 2 AT INT ( RND (FL) * 20) 4 145,13G:FL = NOT F 
L: RETURN 

290 HPLOT 125,159 T0 125,130 TO 100,75 TO 100,50 TO 125,3: 
HPLOT 155,159 T0 155,130 TO 180.80 T0 180.50 T0 155,3: 
HPLOT 137,107 TO 125,80 TO 125,50 TO 138,27 TO 150,50 T 
0 150,80 T0 137,107 

300 DRAU 1 AT INT ( RND (FL) * 25) 4 152,65:FL = NOT FL: 


HPLOT 100.61 TO 125,61: FOR I = 0 TO 3: HPLOT 100,50 4 
I TO 125,50 4 I : NEXT 

310 DRAU 9 At 90,57: DRAU 10 AT 90,66: DRAU 11 AT 90,75: RE 
TURN 

320 REM *** LIVELLO 2 *** 

330 HC0L0R= 0: DRAU CTRV 4 2 AT 105.155: 0N CTRV GOSUB 370. 
380,390,400,410: IF CTRV 4 1 } 5 THEN LAP = LAP 4 1 : VT 
AB 22: HTAB 39: PRINT LAP;:CTRV = 0: IF LAP = 4 THEN P 
OP : GOTO 780 

340 HC0L0R= 3: DRAU CTRV 4 3 AT 105,155: ON (CTRV 4 1) GOSU 
B 370,380,390,400,410: IF CTRV 4 3 = 7 AND LAP = 2 THEN 
DRAU 12 AT 165,12 

350 IF CTRV 4 3=7 AND LAP = 3 THEN HCGL0R= 0: DRAU 12 AT 
165.12: HCQL0R= 3: DRAU 13 AT 165,12 

360 RETURN 

370 HPLOT 125,159 TO 122.110 T0 102,70 TO 125,3: HPLOT 155. 
159 TO 157,110 T0 137,70 T0 155,3: DRAU 1 AT INT ( RND 
(FL) * 25) 4 125,120:FL = NOT FL: RETURN 

380 HPLOT 125,159 TO 165,100 T0 165,60 T0 125,3: HPLOT 155. 
159 TO 200,100 T0 200.60 TO 155,3: DRAU 2 AT INT ( RND 
(FL) * 27) 4 167,70:FL = NOT FL: RETURN 

390 HPLOT 125.159 T0 97,120 TO 97,95 T0 142,50 T0 125,3: HP 
LOT 155,159 TO 132,120 TO 132,95 T0 177.50 TO 155.3: DR 
AU 2 AT INT ( RND (FL) * 27) 4 99,1Q0:FL = NOT FL: RE 
TURN 

400 HPLOT 125,159 TO 122,140 TO 87,90 T0 122,40 TO 125,3: H 
PLOT 155,159 T0 157,140 T0 192.90 T0 157,40 T0 155.3: H 
PLOT 140,110 TO 125,90 T0 140.70 T0 155.90 TO 140,110: 
DRAU 1 AT INT ( RND (FL) * 27) 4 124,35:FL = NOT FL: 
RETURN 

410 HPLOT 125.159 TO 87,100 T0 87,90 TO 107,50 T0 125,3: HP 
LOT 155,159 TO 122,100 TO 122,90 T0 142,50 TO 155,3: DR 
AU 2 AT INT ( RND (FL) * 27) 4 88,95:FL = NOT FL: RET 
URN 

420 REM #« LIVELLO 1 *** 

430 HC0L0R= 0: DRAU CTRV 4 2 AT 105,155: 0N CTRV GOSUB 470, 
480,490,500: IF CTRV 4 1 > 4 THEN LAP = LAP 4 1 ; VTAB 2 
2: HTAB 39: PRINT LAP;:CTRV = 0: IF LAP = 3 THEN POP : 
GOTO 780 

440 HC0L0R= 3: DRAU CTRV 4 3 AT 105,155: ON (CTRV 4 1) GOSU 
B 470,480,490,500: IF CTRV 4 3 = 6 AND LAP = 1 THEN DR 
AU 12 AT 165,12 

450 IF CTRV 4 3 = 6 AND LAP = 2 THEN HC0L0R= 0: DRAU 12 AT 
165.12: HC0L0R= 3: DRAU 13 AT 165,12 

460 RETURN 

470 RDM = INT ( RND (FL) * 22) 4 119: HPLOT 125.159 TO 120 
.135 T0 120,25 T0 125,3: HPLOT 155,159 T0 160,135 TO 16 
0,25 T0 155,3: FOR I = 1 T0 3: DRAU 2 AT RDM 4 I * 5,12 
0 * 20 * I: NEXT :FL = NOT FL: RETURN 

480 HPLOT 125,159 T0 85,100 TO 85,90 TO 105,50 T0 125,3: HP 
LOT 155,159 TO 125,100 T0 125,90 T0 145,50 TO 155,3: DR 
AU 2 AT INT ( RND (FL) * 25) 4 86,90:FL = NOT FL: RET 
URN 

490 HPLOT 125,159 TO 95,120 TO 95.100 TO 140,50 TO 125.3: H 
PLOT 155,159 TO 135.120 TO 135,100 TO 180.50 T0 155.3: 
DRAU 2 AT INT ( RND (FL) * 27) 4 96,120:FL = NOT FL: 
RETURN 

500 HPLOT 125,159 T0 145.110 T0 145,100 TO 165.60 T0 125.3: 
HPLOT 155,159 T0 185.110 TO 185,100 TO 205,60 TO 155,3 
: DRAU 2 AT INT ( RND (FL) * 29) 4 146,1Q5:FL = NOT F 
L: RETURN 

510 REM *** COMINCIA PISTA *** 

520 HPLOT 125,159 TO 0,159 T0 0.0: FOR I = 0 T0 2: HPLOT 0, 
I TO 125,1: HPLOT 155,1 TO 279,1: NEXT : HPLOT 279,0 T0 
279,159 T0 155,159 

530 HPLOT 125.159 T0 125.110 TO 105,70 T0 125,3: HPLOT 155, 

159 T0 155,110 TO 135,70 TO 155,3: DRAU 3 AT 110,155: R 

ETURN 

540 HPLOT 125.159 T0 122.110 T0 102,70 T0 125,3: HPLOT 155. 

159 TO 157,110 TO 137,70 TO 155,3: DRAU 3 AT 105,155: R 

ETURN 
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I file dei record saranno letti sul di¬ 
schetto per tutte le partite iniziali, ogni 
volta che viene cambiato livello di gio¬ 
co e ogni volta che è stato appena isti¬ 
tuito un nuovo record. Eccone il per¬ 
ché. La variabile T% non sarà uguale 
a A% se: 


1. T% è uguale al valore zero d’inizio 
del programma perché il programma è 


stato caricato e non si è ancora fatta 
una corsa; oppure 

2. la corsa non è la prima, ma verrà 
fatta a un livello diverso dalla corsa 
precedente. In questo caso A% non 
sarà uguale a T% (linee 1010-1040) 
perché T% conserverà ancora il prece¬ 
dente valore A%. 


In altre parole l’espressione A% = 


T% è vera solo se la corsa da fare è una 
ripetizione o viene svolta allo stesso 
livello della corsa precedente. 

La condizione NR=0 sarà sempre 
vera a meno che la partita sia una ripe¬ 
tizione e nella corsa precedente sia sta¬ 
to istituito un record (linea 1910 nella 
routine di aggiornamento del punteg- 
gio). 

Una corsa ha inizio quando si preme 


550 


560 

570 


580 

590 

600 


610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


810 

820 

830 

840 

850 

860 

870 


890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 


HPLOT 125.159 T0 120.135 T0 120,25 TO 125,3: HPIOT 155. 
159 T0 160,135 T0 160,25 T0 155,3: DRAM 3 AT 105,155: 8 
ETURN 

REM *** LOOP CARBURANTE ESAURITO *** 

VTAB 23: HTAB 7: PRINT ' 0.0*;: HTAB 16: FLASH : PRINT 
' SENZA CARBURANTE! ": : FOR 1 = 1 T0 4000: NEXT : NORMA 
L :FUEL = 15:SP/ = 1:TIME = TIME ♦ 90: HTAB 16: CALL * 
958: RETURN 

REM *** LOOP PRINCIPALE *** 

0N MODEX G0SUB 40.90 

Y = Y - 2 * SPX: IF Y < 0 THEN Y = 163: XDRAU 1 AT QX,0 
Y: XDRAU 1 AT X.Y:CTRT/. = CTRX * 1:0X = X:0Y = Y : 0N AX 
GOSUB 430.330,190: GOTO 590 

IF PEEK (KBX) = 155 THEN POKE - 16368,0: TEXT : GOTO 
20 

TIME = TIME ♦ .2:MINX = INT (TIME / 60) :SEC"X = INT (T 
IME - (MIN7. *60)) 

VTAB 22: HTAB 25: IF MINX < 10 THEN PRINT 1 '; 

PRINT MINX;" : IF SEC*/. < 10 THEN PRINT "0" ; 

PRINT SECX 

VTAB 21: HTAB 11: PRINT SPX: 

FUEL = FUEL - 0.02 * SPX: VTAB 23: HTAB 12: IF FUEL > 

= 10 THEN PRINT INT (10 * FUEL) / 10: GOTO 710 

INT (10 * FUEL) / 10: G 


INT (10 * FUEL) / 10: 


♦ 35: F 
50 


FOR J = 
N0RMAL 


IF FUEL > = 1 THEN PRINT 
0T0 710 

IF FUEL > = 0 THEN PRINT 
GOTO 710 
GOSUB 570 
XDRAU 1 AT 0X,0Y 
XDRAU 1 AT X,Y 
0X = X:0Y = Y 

IF PEEK (CC7.) < ) 38 THEN FOR I = 1 TO 4:SND = PEEK 
(BZX): NEXT :TIME = TIME + 5:SPX = 1 
IF PEEK (CCX) = 24 AND Y = 53 THEN FUEL = FUEL 
OR I = 1 TO 2000: NEXT : IF FUEL > 50 THEN FUEL 
GOTO 590 

REM *** CONCLUSIONE DELLA CORSA *** 

HGR : TEXT : HOME : VTAB 10: HTAB 14: IWERSE 
1 TO 16: PRINT MIO* <0VER*.J,1); 

FOR I = 1 T0 5 :SND = PEEK <BZX): NEXT : NEXT 
: FOR I = 1 TO 2000: NEXT 
FOR I = 1 T0 10: CALL - 912: NEXT 
VTAB 1: HTAB 7: IWERSE : PRINT 1 RISULTATI DELLA CORSA 
1 : NORMAL 
TIME = TIME ♦ .2 

MINX = INT (TIME / 60):SECX = INT (TIME - (MINX * 60) 

) 

VTAB 5: HTAB 2: PRINT 'IL TUO TEMPO E' STATO: 

IF MINX < 10 THEN PRINT ' '; 

PRINT MINX;":"; : IF SECX < 10 THEN PRINT "0"; 

PRINT SECX* 1 . " 

VTAB 7: HTÀb‘2: PRINT 'CARBURANTE RESTANTE : 

UEL * 10) / 10:" LT.' 

FOR I = 1 T0 3000: NEXT 
GOSUB 1860 

VTAB 23: HTAB 9: PRINT 'UN'ALTRA C0RSA?(S/N) 

: PRINT A$;: IF A* = 'S' THEN 20 
IF A$ < > 'N" THEN 910 

VTAB 23: HTAB 29: IWERSE : PRINT "ARRIVEDERCI" ; : NORMA 
L : END 

REM *** INIZIALIZZA *** 

HOME :SPX = 1:TIME = 0:LAP = 0:CTRX = 0:FL = 0:FUEL = 5 
0.0 

POKE 32.5: PRINT : VTAB 5: PRINT 'SCEGLI IL LIVELLO DI 
GIOCO: 1 

PRINT : PRINT TAB( 5):'l - PISTA PER PRINCIPIANTI' 
PRINT TAB< 5);"2 - PISTA DI PROVA' 

PRINT TA8< 5);'3 - PISTA DI CAMPIONATO' 

VTAB 5: HTAB 35: GET A*: PRINT : IF A* < '1' OR A$ > ' 
3' THEN 1000 
AX = VAL <A$) 


INT (F 


GET A* 


1020 IF AX = 1 THEN FL$ = 'BREC' 

1030 IF AX = 2 THEN FL* = 'UUREC' 

1040 IF AX = 3 THEN FL* = 'CREC' 

1050 POKE 32,0: HOME : IF NR = 0 AND AX = TX THEN GOSUB 17 

10: GOTO 1070 
1060 GOSUB 1620 

1070 HGR : HC0L0R= 3: SCALE= 1: RQT= 0:X = 140:Y = 150:0X = 

140 :OY = 150 

1080 HPLOT 125,159 T0 0,159 TO 0,0: FOR I = 0 TO 2: HPLOT 0 
,1 TO 125.1: HPLOT 155,1 TO 279,1: NEXT : HPLOT 279,0 
TO 279.159 TO 155.159 
1090 ON AX GOSUB 550,540,520 

1100 VTAB 21: HTAB 1: INVERSE : PRINT 'VELOCITA'*':: NORML 
: PRINT '1': VTAB 23: HTAB 1: INVERSE : PRINT 'CARBUR 
ANTE='; : NORMAL : PRINT ' 50.0';: HTAB 12: PRINT 'LT'; 
1110 VTAB 22: HTAB 20: INVERSE : PRINT 'TEMP0=';: NORMAL : 
PRINT ' 0:00';: IWERSE : HTAB 33: PRINT "6IRI=" ; : NOR 
MAL : PRINT ' ';0 

1120 XDRAU 1 AT 0X.0Y: VTAB 24: HTAB 5: PRINT '(PREMI ':: F 
LASH : PRINT BEG$:: NORMAL : PRINT " PER COMINCIARE)'; 

: IF MODEX = 2 THEN VTAB 20: GET A*: PRINT : 'VTAB 24: 
CALL - 958: RETURN 

1130 IF PEEK (PKX ♦ PDX) ) 127 THEN HTAB 4: CALL - 958: 
RETURN 

1140 GOTO 1130 

1150 REM *** INTRO/ISTR *** 

1160 'VTAB 8: HTAB 11: IWERSE : PRINT ' GRMD.PR1X ': 
NORMAL 

1170 PRINT : SPEED* 100: PRINT TAB( 19)'DI' 

1180 PRINT : PRINT TAB( 15)'MIKE ROHRER': SPEED= 255 
1190 X = 0:Y = 0:OX = 0:OY = 0:TIME = 0:PKX = 0:PDX = 0:KEY 

X = 0:KBX = 0:MINX = 0 : SEC*/ = 0:MODEX = 0:DIRX = 0:CTR 

X = 0:AX = 0 

1200 KBX = - 16384:BZX = - 16336:PKX = - 16287:CCX = 234 
iWm = ' GRAND.PRIX ':0VER$ = ' FINE DEL GIOCO 
•:NBRX = 10:MODEX = 0 

1210 m = FOR I = 1 TO 39:LN$ = LN* ♦ NEXT 
1220 PRINT WBLOAD RACER.SHAPES* 

1230 POKE 232,0: POKE 233.16 

1240 VTAB 24: PRINT '(0 1985 BY APPLICANDO & MICROSPARC IN 

C": VTAB 20: HTAB 3: FOR I = 1 TO 800: NEXT I: PRINT ' 

VUOI LE ISTRUZIONI? <S/N) '; 

1250 GET A$: PRINT : IF A$ = 'N' THEN 1560 
1260 IF Al < ) 'S' THEN 1250 

1270 HOME : VTAB 1: HTAB 11: INVERSE : PRINT NAM$: NORMAL 
1280 PRINT ' I GIOCATORI POSSONO SCEGLIERE FRA TRE':: PRI 
NT 'LIVELLI DI GIOCO. LA'PI STA PRINCIPIATI /B : PRINT 'H 
A CORSIE LARGHE, CURVE APIE E POCHI': PRINT 'OSTACOLI 
. LA 'PISTA DI PROVA' PRESENTA" 

1290 PRINT 'CORSIE PIU' STRETTE E UN PO' PIU'*: PRINT 'OSTA 
COLI (BUCHE E VETTURE ABBANDONATE).': PRINT 'LA 'PISTA 
DI CAPIQMTO' HA CORSIE': PRINT 'E CURVE PIU' STRETT 
E E UNA SOSTA AI BOX.': 

1300 PRINT : PRINT ' QUALSIASI LIVELLO DI GIOCO TU'; PR 
INT 'SCEGLI. CERCA DI EVITARE GLI OSTACOLI 0’: PRINT ' 

DI FINIRE CONTRO I LATI DELLA PISTA.': PRINT 'SE LO FA 
I RALLENTI E PERDI TEMPO.' 

1310 PRINT : PRINT ' LA BENZINA RESTANTE SARA' 1 : PRINT *V 
ISUALIZZATA A TUTTI I LIVELLI. M DI": PRINT 'NORMA SA 
RA' UN FATTORE IMPORTANTE SOLÒ': PRINT 'SULLA PISTA DI 
nAMPIdNATO USA IA SOSTA" 

1320 PRINT "Al BOX PER AMERE FINO A 35 ALTRI LITRI': PRINT 
'DI CARBURANTE. NON RESTARE SENZA"": PRINT : PRINT 
TABI 4)(QUALSIASI TASTO PER PROSEGUIRE)*; 

1330 GET Al: HOME 

134B PRINT ' LA CORSA PER PRINCIPIANTI DURA TRE': PRINT ' 
GIRI CON SEQUENZA 01 QUATTRO TRACCIATI.': PRINT 'LA CO 
RSA DI PR0WA V DI QUATTRO GIRI CON':: PRINT 'UNA SEQU 
ENZA DI CINQUE TRACCIATI.' 

1350 PRINT 'LA CORSA DI CAMPIONATO MISURA DIECI GIRI':: PRI 
NT 'CON Utt SERIE DI SEI TRACCIATI.': PRINT <continua ) 
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o un tasto (linea 1120) o il pulsante 
della paddle (linea 1130) . La linea 590 
è l’inizio del loop principale del pro¬ 
gramma. Se si usano le paddle il pro¬ 
gramma fa una diramazione alla routi¬ 
ne che comincia a linea 40, dove ma¬ 
nopola e pulsante sono controllati e le 
variabili di velocità e posizione della 
vettura sono cambiate in conformità. 
Le linee 90-170 svolgono la stessa 
funzione per il modo di gioco da tastie¬ 
ra. La linea 600 restituisce con RE¬ 
TURN il controllo alla routine princi¬ 
pale del programma. 

Quando la vettura raggiunge la 
sommità dello schermo la linea 600 
incrementa la variabile di conteggio 
CTR% e disegna il segmento successi¬ 
vo della pista. Le linee 610—730 incre¬ 
mentano altre variabili della corsa e 
spostano la vettura. Se questa resta 
senza benzina la linea 700 trasferisce il 
controllo del programma alla subrou¬ 
tine di linea 570. Le linee 740 e 750 
controllano rispettivamente se ci sia 
stato un urto e se la vettura si sia fer¬ 
mata per mancanza di carburante, pri¬ 
ma che sia reintrodotto l’inizio del 
loop principale. 

Le subroutine alle linee 180, 320 e 
420 sono quelle che disegnano di fatto 


TAVOLA 1 
RACER. SHAPES 


1 . 

Au to 

3 . 

6 


2 . 

Ost acolo 

9 . 

P 


3. 

1 

10 . 

I 


4. 

2 

1 1 . 

T 


5 . 

3 

12. 

Bandiera 

bianca 

6 . 

4 

13 . 

Bandiera 

a scacchi 

7. 

5 





con DRAW i tracciati di pista. Può 
essere interessante notare l’impiego 
della variabile FL in congiunzione con 
la funzione RND. Prendete per esem¬ 
pio la linea 230. La prima volta che la 
linea 190 trasferisce il flusso del pro¬ 
gramma a linea 230 in ciascun ciclo 
HCOLOR viene impostato su zero 
per cancellare la vecchia pista prima 
che sia disegnata la nuova. Se l’argo¬ 
mento della funzione RND è zero sarà 
restituito il numero casuale generato 
più di recente. Nel caso in questione il 
numero casuale generato più di recen¬ 


te è quello scelto da RND nel prece¬ 
dente passaggio attraverso la linea 
230, quando HCOLOR era uguale a 3 
(bianco) ed era stata disegnata la figu¬ 
ra 1. Pertanto il programma è in grado 
di cancellare la figura 1 disegnandola 
in nero esattamente nella stessa posi¬ 
zione in cui era stata disegnata in bian¬ 
co. Infine nei passaggi in cui FL è 
uguale a zero l’istruzione FL = NOT 
FL reimposta FL su 1 in modo che la 
volta seguente possa essere generato 
un nuovo numero casuale. 

La corsa ha termine quando la linea 
190, la 330 o la 430 individua che è 
stato completato il giusto numero di 
giri ed esce con POP dal loop andando 
a linea 780. La routine di fine gioco 
alle linee 780-930 visualizza il risulta¬ 
to della corsa, aggiorna gli eventuali 
record (tramite il GOSUB a linea 900) 
e offre la scelta fra un’altra partita e la 
fine (END) del programma. 

Una parola sulla sosta ai box del 
livello 3: all’inizio dello sviluppo del 
programma c’era qualche difficoltà 
perché giungevano continui PEEK dal 
contatore degli urti a linea 750. Qual¬ 
che volta la vettura si fermava per il 
rifornimento e qualche volta no. Il 
problema era causato dal fatto che la 
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1360 PRINT - PUOI USARE IL TASTO <ESC> PER FINIRE': PRINT 
'IN ANTICIPO LA CORSA E POI RICOMINCIARE.';: PRINT 
1370 PRINT ' A TUTTI I TRE LIVELLI QUANDO L'AUTO': PRINT 
'STA PER INIZIARE L'ULTIMO GIRO APPARIRÀ'*; : PRINT "UN 
A BANDIERINA BIANCA PRESSO LA SOMMITÀ' 1 ; 

1380 PRINT 'DELLO SCHERMO. ARRIVATI ALL'ULTIMO': PRINT 'TRA 
CCIATO APPARIRÀ' LA BANDIERINA A': PRINT 'SCACCHI, IND 
ICANTE LA FINE DELLA CORSA.' 

1390 VTAB 22: PRINT TAB( 3)'<QUALSIASI TASTO PER PROSEGUIR 
E>"; 

1400 GET A*: HOME 

1410 VTAB 1: HTAB 16: IWERSE : PRINT ' CCW4D1 ': NORMAL 
1420 PRINT : PRINT 'CON LE PADDLE:' : PRINT : PRINT TAB( 3) 
'MANOPOLA = SPOSTA A SINISTRA E DESTRA': PRINT TAB( 3 
)'PULSANTE = CAMBIA VELOCITA' <1 A 5)' 

1430 PRINT : PRINT 'CON LA TASTIERA:': PRINT : PRINT TAB( 
3>'<- -> = SPOSTA A SINISTRA E DESTRA': PRINT TAB( 

3)'<BAR SP) = ARRESTA MOVIMENTO LATERALE': PRINT TAB 
( 3)'<S) = CAMBIA VELOCITA' (1 A 5>" 

1440 PRINT : PRINT LN$: 

1450 PRINT : PRINT 'N.8. SULLA VELOCITA'*: PRINT : PRINT "C 
AMBIARE RAPIDAMENTE VELOCITA' RICHIEDE': PRINT "MOLTA 
ATTENZIONE E UN SAPIENTE DOSAGGIO': PRINT 'DI PRESSION 
I SUL TASTO 'S /B 

1460 PRINT : PRINT TAB( 4)'<QUALSIASI TASTO PER PROSEGUIRE 
1470 6EÌ Al: HOME 

1480 VTAB 1: HTAB 14: IWERSE : PRINT ' PENALITÀ' ': NORMAL 

1490 PRINT : PRINT "URTIs5 SECONDI E LA VELOCITA'TORNA A 1. 

■ 

1500 PRINT : PRINT 'SENZA BENZINAIO SECONDI, IN ATTESA DI' 

: PRINT 'UN RIFORNIMENTO DI 15 LITRI." 

1510 PRINT : PRINT LNI: HTAB 8: IWERSE : PRINT ' RIF0RT4IME 
NTO IN CORSA ': NORMAL : PRINT 
1520 PRINT ' ENTRANDO AL BOX PER IL RIFORNIMENTO': PRINT 
•ATTENTO A NON URTARE LE PARETI DEL BOX.': PRINT 'NON 
ACCELERARE TROPPO PRESTO LASCILO' 

1530 PRINT 'IL BOX. IN AMBEDUE I CASI SCOPRIRAI': PRINT 'CH 
E LA TUA AUTO NON SI FERMERÀ'"" 

1540 VTAB 22: PRINT TAB( 4)"<QUALSIASI TASTO PER PROSEGUIR 
E>‘; 

1550 GET A* 

1560 HOME : VTAB 5: HTAB 9: PRINT 'SCEGLI IL COMNDO: ': PO 
KE 32,12: PRINT : PRINT '<0> = PADDLE 0': PRINT '<1> = 
PADDLE 1': PRINT "<K>= TASTIERA': POKE 32.0 
1570 VTAB 9: HTAB 31: GET A*: PRINT : IF A* = '0* THEN MODE 
V. = 1:BEGI = 'PULSATE' :PDK = 0: RETURN 
1580 If A* = T THEN MODE = 1:BEGI = 'PULSANTE' :PDX = 1: 
RETURT4 

1590 IF Al < > 'K' THEN 1570 

1600 MODEV. = 2:BEGI = 'UN TASTO': RETURN 

1610 REM *** LETTURA DEI RECORD *** 

1620 TEXT : HOME 

1630 TX = AX: REM FLAG. VEDI 2090 
1640 PRINT Wj'QPEN 'FLl 
1650 PRINT D$ : "READ 'FLl 
1660 FOR I = I TO NBRX 
1670 INPUT OSCI) 

1680 INPUT 0»<I> 

1690 NEXT 

1700 PRINT Dlj'CLOSE 'FLl 
1710 POKE 32,10: PRINT 

1720 VTAB 1: HTAB 3: INVERSE : PRINT MN$: NORMAL 
1730 VTAB 3: PRINT NBRX' PUNTEGGI PIU'ALTI-LIVELLO *AX 
1740 FOR I = 1 TO NBRX:II = • ' 

1750 IF 0S<I ) = 0 THEN QSKI) = '-' : REM 9 LINEETT 

E 

1760 IF I < 10 THEN 1$ = ' ' 

1770 MIN(I) = INT (OSO) / 60)sSEC<I) = INT (OS(I) - (MIN 
(I) * 60)) 

1780 MINI(I) = STRI (MIN(D)i IF MIN(I) < 10 THEN NINNI) 

= ' ' ♦ MINIO) 

1790 SEGNI) = Sm (SEC(D): IF SEC(I) < 10 THEN SEGNI) 

= '0' ♦ SE»<I ) 

1800 VTAB 4 4 I: PRINT II 4 STRI (I) ♦ + MINIO) 4 ■; 

' 4 SECI(I) + * * 4 OSNI) 

1810 NEXT 

1820 VTAB 24: PRINT 'PREMI UN TASTO PER CONTINUARE';: GET A 

$ 

1830 POKE 32,0: PRINT : HOME 
1840 RETURN 

1850 REM *** AGGIORNAMENTO DEI RECORD *** 

1860 TIME = INT (TIME * 10) / 10 


1870 NR = 0: REM FLAG NUOVO RECORD 

1880 FOR I = 1 TO NBRX 

1890 IF TIME > OS(l) THEN 1990 

1900 IF NR = 1 THEN 2000 

1910 NR = 1:NS<1) = TIME 

1920 PRINT : PRINT LNI 

1930 PRINT : PRINT 'IL TUO PUNTEGGIO E'UNO DEI MIGLIORI *;N 
BRX 

1940 POKE - 16368,0 

1950 'VTAB 14: PRINT TAB( 5)'BATTI LE TUE INIZIALI E': PRIN 
T TAB( 5)'LA DATA ODIERNA (GGftlAA) : ':: VTAB 18: HTAB 
3: PRINT '(PREMI (RETURN) QUttiDO HAI FINITO)' 

1960 VTAB 15: HTAB 30: INPUT ";NSKI): IF NSKI) = " THEN 
1960 

1970 IF LEN (NSKI)) > 10 THEN PRINT CHR$ (7): VTAB 15: 
HTAB 27: CALL - 958: VTAB 17: HTAB 7: INVERSE : PRINT 
•LIMITATI A 10 LETTERE PREGO': NORMAL : GOTO 1950 
1980 NEXT : GOTO 2010 

1990 NS(I) = OS(I):NSNI) = OSNI): NEXT : GOTO 2010 

2000 NS(I) = OSO - 1):NSI(I) = OS*<I - 1): NEXT 

2010 IF NR = 0 THEN 2100 

2020 PRINT DI;'OPEN 'FLl 

2030 PRINT Wj'URITE 'FLI 

2040 FOR I = 1 TO NBR7. 

2050 PRINT NS(I) 

2060 PRINT NSKI) 

2070 NEXT 

2080 PRINT Dlj'CLOSE 'FLI 
2090 PRINT : PRINT : PRINT LNI: GOTO 2130 
2100 PRINT : PRINT LNI: FOR I = 1 TO 10:SND = PEEK (B27.) : 
NEXT : VTAB 12: PRINT TAB( 3)"SPIACENTE: PRINT : PR 
INI TAB( 3)'NON SEI ENTRATO NEI MIGLIORI 'NBRX 
2110 PRINT : PRINT : PRINT LNI 
2120 FOR I = 1 TO 1000: NEXT 
2130 RETURN 
2140 DI = CHRI (4) 

2150 IF PEEK (104) < > 64 THEN POKE 103.1: POKE 104,64S 
POKE 16384.0: PRINT DI'RUN GRFND.PRIX* 

2160 QNERR GOTO 2260 

2170 FOR I » 1 TO 3: READ FLI(I): NEXT 

2180 I = 1 

2190 PRINT DI ;'VERIFY ';FLI(I) 

2200 I = 2 

2210 PRINT DI;"VERIFY ';FLI(D 
2220 I = 3 

2230 PRINT DI;"VERIFY ';FLI(D 

2240 POKE 216,0 

2250 GOSUB 1160: RETURN 

2260 CALL - 3288: FOR J = 1 TO 10:NS(J) = 33355:NSI(J) = ' 
IMMIM" : NEXT 
2270 PRINT DI'OPEN 'FLI(I) 

2280 PRINT DI-URITE 'FLI(I) 

2290 FOR K = 1 TO 10 
2300 PRINT NS(K) 

2310 PRINT NSI(K) 

2320 NEXT K 

2330 PRINT DI'CLOSE 'FLI(I) 

2340 GOTO 2180 

2350 DATA 'BREC','WUREC','CREC' 
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TAVOLA 2 

VARIABILI PRINCIPALI 

A* 

GET attesa della variabile 

A% 

Livello del gioco 

bzx 

Cicalino<-16336) 

ccx 

Controllo col 1 isione<234) 

CTR% 

Numero del percorso 

D* 

CHR*<4) 

DIR '/. 

Direzione del movimento con tastiera 

FL 

Flag usato con la funzione RND 

FL* 

Nome del giocatore 

FUEL 

Rimanenza carburante 

I ,J 

L'ar i ab i 1 i indice 

KB*/. 

Lettore di tastiera<-16384) 

KEY7. 

PEEK (KB/.) 

LAP 

Contatore LAP 

MIN/. 

Minuti 

MODE*/ 

Modo di gioco 

NS<*),NS*(*> 

Informazioni punteggio nuovo record 

0S(*) 

Informazioni punteggio vecchio record 

PD7 

Numero della Paddi e 

PK7 

Lettura Padd1 e<-16287) 

RDM 

L'ar i ab i 1 e random 

SEC7. 

Secondi 

SP7. 

Ue1 ocità auto 

TIME 

Tempo trascorso dalla partenza dell'auto 

X 

X 

o 

X 

o 

-< 

Variabili posizione auto 


vettura entrava a velocità differenti 
nell’area di fermata ai box, il che crea¬ 
va letture diverse del contatore d’urti. 

Là soluzione è stata quella di dise¬ 
gnare un’unica linea orizzontale im¬ 
mediatamente prima del box (il primo 
HPLOT a linea 300). Quando "urta" 
questa linea la vettura viene rallentata 
al livello di velocità 1, come avviene 
con tutti gli urti (linea 740, dove SP% 
= 1). Ciò la costringe a entrare sempre 
al box a questa velocità, generando 
così letture uniformi del contatore de¬ 
gli urti. Anche così, in ogni modo, sta¬ 
te attenti a entrare nel box senza urta¬ 
re i lati della pista e a non accelerare 
troppo presto quando uscite. In caso 
contrario potrebbe venirvi il dubbio 
che la vettura pensi per conto suo! 

Dato che il programma è discreta¬ 
mente lungo esso si ricarica sopra la 
grafica in alta risoluzione, per evitare 
conflitti di memoria. Questo viene fat¬ 
to a linea 2150, dove un PEEK (104) 
determina il presente indirizzo iniziale 
del programma in Applesoft. 

Possibili modifiche 

Sono possibili varie modifiche e mi¬ 
glioramenti del gioco. Per avere un 


aiuto nel fare tali cambiamenti potete 
consultare la tavola 1, che contiene 
una lista delle figure del file RACER. 
SHAPES, e la tavola 2, che mostra le 
principali variabili del programma. 
Nelle linee 190, 330 e 430 potete cam¬ 
biare i numeri interi dei giri (LAP) 10, 
4 e 3 per allungare o abbreviare rispet¬ 
tivamente il gioco di livello 1, livello 2 
e livello 3. Volendo potete cambiare i 
valori PDL "maggiore di" (>) o "mino¬ 
re di" (<) nelle prime istruzioni delle 
linee 50 e 60, per adattarli al vostro 
tocco o alla vostra sensibilità di padd- 
le. Per registrare un numero di miglio¬ 
ri punteggi maggiore (o minore) di 
dieci cambiate NBR% a linea 1200 e i 
valori delle variabili con indice J nella 
subroutine a linea 2260. Se però opta¬ 
te per più di dieci ricordatevi di inseri¬ 
re un’istruzione DIM. Tenete conto, 
infine, che il programma è piuttosto 
parsimonioso in fatto di colore e suo¬ 
no. Aggiungendone un po’ potrete da¬ 
re un poco di vivacità in più alla vostra 
versione personale del gioco. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
- 
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LO STESSO LAVORO PUOI 

PRESENTARLO 


BENE O 


Milano, 17 Luglio 1905 


DA: Mario Bianchi (Direttore Vendite) 
A: Gianni Rossi (Direttore Generale) 


L'andamento delle vendite nel corso di quest'anno nello stato del 
Colorado per quanto riguarda il prodotto A ha subito un calo rispetto 
aH'andamento delle vendite dei prodotti B, C, 0 ed E. Infatti ne sono stati 
venduti soltanto 1200 pezzi, nonostante le previsioni di vendita all'inizio 
dell'anno fossero tutt altro che negative. 

Purtroppo stiamo assistendo ad una crisi del settore che si riuscirà - a 
risolvere solo con azioni di politica economica che esulano dalla nostra 
area di intervento. Infatti, la popolazione di Denver e' in calo e cosi' anche 
i consumi alimentari ne hanno risentito. 

Nonostante comunque l'andamento del mercato sia poco favorevole, il 
bilancio complessivo è da giudicarsi positivamente. Con sacrifici ed 
un'attenta gestione operativa, abbiamo ridotto il nostro intervento nei 
segmenti meno redditizi, aumentando gli srorzi di vendita del prodotto D 
che cosi risulta quello che maggiormente ha contruibuito all'utile 
aziendale. 

Sperando di poter riportare risultati più brillanti anche dalle vendite, 
non appena ripartirà il mercato, invio cordiali saluti 

Mario Bianchi 



Ogni giorno vengono stilati migliaio di 
rapporti aziendali. La maggior parte viene 
sottoposta all’approvazione, alcuni vengono 
letti i, pochi discussi , pochissimi vengono 
ricordati. Tutti gli strumenti di cui hai bisogno 
per ottenere business report indimenticabili, li 
puoi trovare su un solo dischetto: Ensemble. 
Ensemble riunisce il trattamento testi, la 
gestione dati i, l’impostazione e la creazione 
di report, il calcolo e la grafica in un solo 
programma molto potente e produttivo. Il 
miglior pregio di Ensemble è la sua facilità. 
Studiato pensando a te e al tuo computer 
preferito, il Macintosh anche con solo 128K, 
Ensemble sfrutta tutti i vantaggi del 
Macintosh User Interface ed è compatibile 
con MacWrite e MacPaint. Ma questo non è 
il solo modo in cui Ensemble ti aiuta a 
migliorare. Puoi utilizzare Ensemble anche 
per creare Databases, effettuare analisi 
decisionali, fare mailing e altro ancora. 

Fatti ricordare con Ensemble. Fissa un 
appuntamento oggi stesso con il tuo software 
dealer oppure telefona , senza alcun impegno, 
a Italware a questo numero: 02-21623606. 



Milano, 17 Luglio 1985 


DA Mario Bianchi (Direttore Vendite) 
A Gianni Rossi (Direttore Generale) 
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Prima di fare il dump 
dello schermo grafico 
Hi-Res, in stampa 
normale o negativa, è 
necessario caricare il 
programma del Tool Kit 
e fare la stampa: 
operazione tutt’altro che 
agile. Non è possibile 
accedere direttamente 
alla routine di stampa, e 
. solo a quella? 


Un by-pass 
per il dump 


L a stampante Imagewriter fa spes¬ 
so parte del corredo degli Apple 
//e e He. Il disco Tool Kit comprende 
un programma per il dump dello 
schermo grafico HI-RES pagina 1 o 
pagina 2 in stampa normale o negati¬ 
va. Ogni voltà che occorre fare il dump 
dello schermo grafico, però, è un po’ 
laborioso caricare il programma del 
Tool Kit e fare la stampa. 

Tuttavia, ecco l’idea, è possibile by- 
passare l’intero programma e prende¬ 
re la sola routine di stampa rendendo 
più veloce il lavoro. LTmagewriter 
Tool Kit DOS 3.3 e ProDos differisco¬ 
no però in alcuni punti abbastanza si¬ 
gnificativi; di conseguenza vengono 
discussi separatamente. 

DOS 3.3 Imagewriter 

L’Hello del DOS 3.3 Tool Kit Ima- 
gewriter carica in memoria una routi¬ 
ne in linguaggio macchina chiamata 


GF che è localizzata a $9000. Un disas- 
semblamento della routine stessa rive¬ 
la otto differenti modi che vengono 
richiamati da una variabile che fa rife¬ 
rimento a XFEROPT. Il valore da ze¬ 
ro a tre controlla la pagina HI-RES 1 
e determina sia la dimensione sia il 
modo; mentre il valore da quattro a 
sette controlla i parametri della pagina 
HI-RES 2. Per i valori di XFEROPT 
è sufficiente controllare la tabella 1. 


Lo scopo principale del programma 
Screen dump è quello di permettere di 
caricare una figura in una delle due 
,pagine grafiche HI-RES a scelta e di 
stamparla in quattro modi differenti. 

Attenzione, però: il programma GF 
in DOS 3.3 non funziona sul Ile. Per 
questo occorre usare la versione Pro¬ 
Dos. Se quindi volete incorporare nel 
vostro programma la routine di 
dump=, dovete rispettare questa pro¬ 
cedura: 


1. Caricate in memoria con l’istruzio¬ 
ne BLOAD GF il programma GF dal 
disco Imagewriter Tool Kit. 

2. Caricate in memoria con l’istruzio¬ 
ne BLOAD figura,A$2000 per la pagi- 
na 1 HI-RES o BLOAD figu¬ 
ra, A$4000 per la pagina 2 HI-RES. 


TABELLA 1 - NUMERO DI XFEROPT E MODO CORRISPONDENTE 



Numero dei POKE nella locazione 7 

Scelta 

Pagina 1 

Pagina 2 * 

normale 

0 

4 

inverse 

1 

5 

normale dim,doppi a 

2 

6 

inverse dim,doppia 

3 

1 
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LISTATO 1 - DOS 3.3.DUMP 


10 REM ********************** 

20 REM * D0S3.3.DUMP * 

30 REM * BY GERALD BLALQCK * 

40 REM * COPYRIGHT (0 1985 * 

50 REM * BY APPLICANDO è * 

60 REM * MICROSPARC, INC. * 

70 REM ********************** 

80 REM DUMP HI-RES CON STAMPANTE IMAGEURITER 
90 REM IL FILE 'GF' E LE FIGURE DEVONO ESSERE NELLO STES 
SO DISCO 

100 HOME : HIMEM: 36864 
110 D$ = CHI» (4): REM CTRL-D 

120 PSLOT = 1: REM SLOT STAMPANTE 

130 PRINT D$:*BLOAD GF 1 

140 POKE 6.PSLOT 

150 PRINT 'NOME DELLA FIGURA (? PER IL CATALOG)': INPUT *: 
";NAME$: IF NAHE$ = ’?' THEN PRINT WCATALOG* : SET li 
: PRINT : GOTO 150 

160 INPUT 'QUALE PAGINA GRAFICA (1 0 2); ";P$ 

170 Pi = LEFT* (f»,l): IF Pi < > *1* AND F» < > *2* GOTO 

160 

180 PRINT DI;'BLOAD 'WWE*',A*'2000 ♦ 2000 * <l» = *2*) 

190 PRINT 'SCELTA DELLA STAMPA:': PRINT ' 0 SINGOLA NORMA 
LE': PRINT • 1 SINGOLA NEGATIVA': PRINT ' 2 DOPPIA NO 
RMALE': PRINT ■ 3 DOPPIA NEGATIVA' 

200 INPUT "QUALE STAMPA? ’jXFEROPT 
210 POKE 7.XFER0PT + 4 * (P$ = '2') 

220 PRINT 0$:'PRO':PSLOT: PRINT CHI» (27) ♦ CHI» (78): RE 
M ATTIVA IL MODO GRAFICO 
230 CALL 36864: REM STAMPA 
240 PRINT : PRINT D$;'PR#0‘: REM FINE STAMPA 


LISTATO 2 - PRODOS.DUMP 


10 REM ********************** 

20 REM * PRODOS.DUMP * 

30 REM * 8Y GERALD BLALOCK * 

40 REM * COPYRIGHT (0 1985 * 

50 REM * BY APPLICANDO 4 * 

60 REM * MICROSPARC, INC. * 

70 REM ********************** 

80 REM DUMP HI-RES CON STMPWTE IMAGEURITER 
90 REM IL FILE 'GRAF.O' E LE FIGURE DEVONO ESSERE NELLO S 
TESSO DISCO 

100 HOME : HIMEM: 36864 
110 0$ = CHI» (4): REM CTRL-D 

120 PSLOT = 1: REM SLOT STIPANTE 

130 PRINT M:'BLOAD GRAF.O' 

140 POKE 6.PSLOT: POKE 252.16 * PSLOT 

150 PRINT 'NOME DELLA FIGURA (? PER IL CATALOG)': INPUT ': 

';NAME$: IF NAME$ = ■?• THEN PRINT WCATALOG*: GET Zi 
: PRINT : GOTO 150 

160 INPUT 'QUALE PAGINA GRAFICA <1 0 2): ';PÌ 

170 Pi = LEFTi (Pi,l): IF Pi ( > '1' AND Pi < > *2' GOTO 

160 

180 PRINT W:'BLOAD ■NAMEi' l A$'2000 ♦ 2000 * (Pi = '2') 

190 PRINT "SCELTA DELLA STAMPA:': PRINT " 0 SINGOLA NORMA 
LE': PRINT ' 1 SINGOLA NEGATIVA': PRINT • 2 DOPPIA NO 
RMALE': PRINT ■ 3 DOPPIA NEGATIVA' 

200 INPUT 'QUALE STAMPA? 'jXFEROPT 
210 POKE 7.XFEROPT + 4 * (Pi = '2') 

220 CALL 38636: REM AZZERA LA STAMPANTE 

230 CALL 38156: REM STMPA 

240 PRINT : PRINT Dij'PRHO':REM FINE STAMPA 


ProDOS 
APPLE //» 
APPLE //c 


DOS 3.3 



APPLE //e 




3. Inserite l’istruzione POKE 
6,PSLOT:POKE 7,XFEROPT. 
PSLOT è il numero dello slot nel quale 
è inserita la stampante, e XFEROPT è 
il valore ottenuto dalla tabella 1. 


4. Inserite l’istruzione PR#PSLOT: 
PRINT CHR$ (27);CHR$ (78). 


5. Inserite l’istruzione CALL 36864. 

ProDos Imagewriter 

Il programma ProDos Imagewriter 
lavora sugli Apple II Plus, //e e Ile. Il 
programma in linguaggio macchina 
chiamato GRAF.O inserito nel disco 
Imagewriter Tool Kit è essenzialmen¬ 
te lo stesso del programma GF, eccet¬ 
to che per la parte iniziale di inizializ- 
zazione. Il risultato è che occorrono 
tre POKE e due CALL per usare il 
GRAF.O nel modo immediato. A dif¬ 
ferenza della versione DOS 3.3, la ver¬ 
sione ProDos non necessita di attiva¬ 
zione preventiva della stampante. Il 
listato 2 è un esempio di dump dello 
schermo grafico in ProDos che fa uso 
del programma GRAF.O. 

La procedura è la seguente: 

1. Inserite l’istruzione HIMEM:36864 
per proteggere GRAF.O. 

2. Inserite l’istruzione BLOAD 
GRAF.O. 


3. Inserite l’istruzione BLOAD figu¬ 
ra, A$2000 per la pagina 1 HI—RES 
oppure BLOAD figura,A$4000 per la 
pagina 2 HI—RES. 

4. Inserite l’istruzione POKE 
6,PSLOT: POKE 252,16*PSLOT: 
POKE 7,XFEROPT. PSLOT è il nu¬ 
mero dello slot nel quale è inserita la 
stampante e XFEROPT è il numero 
rilevato dalla tabella 1. 


5. Inserite l’istruzione CALL 38636. 


6. Inserite l’istruzione CALL 38156. 

Se avete il disco DOS 3.3 Imagewri¬ 
ter Tool Kit, copiate il listato 1 e salva¬ 
telo sul disco contenente il programma 
GF con l’istruzione SAVE DOS 3.3 
DUMP. 

Se avete la versione ProDos Ima¬ 
gewriter Tool Kit, copiate il listato 2 e 
salvatelo sul disco contenente il pro¬ 
gramma GRAF.O con l’istruzione SA¬ 
VE PRODOS.DUMP. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- ^ 
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nel lavoro, nel tempo libero, nel 
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Per lo spostamento del cursore l’Apple usa gli 
ingombranti comandi HTAB e VTAB anziché utilizzare 
speciali caratteri di controllo nelle stringhe stampate. 
Ecco invece un programma (in codice macchina per 
ragioni di velocità) che permette al programmatore di 
avere il controllo diretto dello spostamento del cursore; 
occupa circa 320 byte e risiede, protetto, alla sommità 
della memoria alta. 


DOS 3.3 

APPLE //e 
APPLE //c 


Controllo diretto 
del cursore 


L 9 idea è nata, francamente, osser¬ 
vando i modi di funzionamento 
dei computer PET. Con quel metodo 
di controllo cursore per stampare sullo 
schermo un messaggio (poniamo sia 
"APPLE COMPUTER") partendo 
dalla quinta posizione nella quinta riga 
dello schermo occorre fare quanto se¬ 
gue: PRINT "Hcinque frecce in giù 
cinque frecce destre APPLE COM¬ 
PUTER". Questo equivale, con il me¬ 
todo Apple, a fare VTAB5: HTAB5: 
PRINT "APPLE COMPUTER". Ora, 
in casi semplici come questo non c’è 
molto da scegliere fra i due sistemi, ma 
in situazioni più complicate il metodo 
del controllo diretto del cursore diven¬ 
ta molto più facile da usare. 

Il CDC funziona intercettando tutti 
i caratteri inviati per la stampa e obbe¬ 
dendo ai comandi dati dai caratteri di 
controllo. I comandi possono essere 
emessi o come variabili stringa, per 
esempio A$ = "stringa comandi": 
PRINT A$, o stampando letterali 
stringa: PRINT "stringa comandi". 
Tutti i normali comandi dell’Apple 
HTAB, VTAB, HOME, NORMAL, 
INVERSE e FLASH sono ancora di¬ 
sponibili e possono essere usati nel 
modo normale. Qualsiasi specifico ca¬ 
rattere di controllo può essere facil¬ 
mente cambiato modificando il listato 
sorgente dell’assemblatore. 

Direttiva 

moltiplicatrice "!" 

L’azione di qualsiasi carattere, sia 
esso un normale carattere per la stam¬ 
pa o un comando a carattere di con¬ 


trollo per il CDC, può essere moltipli¬ 
cata fino a 255 volte usando il coman¬ 
do !. Per esempio per stampare 20 spa¬ 
zi potete usare la sequenza PRINT 
"!20"; per stampare 10 spazi e poi spo¬ 
stare il cursore di sei righe in giù e fare 
quindi 10 caratteri di sottolineatura 
basta fare PRINT "! 10!6k! lOv". In 
questo modo potete abbreviare la più 
ingombrante delle mosse multiple del 
cursore del PET. (In tutti gli esempi di 
comandi le lettere minuscole rappre¬ 
sentano caratteri di CTRL.) 

Un unico ! non seguito da un nume¬ 
ro è trattato come !1 (vale a dire il 


carattere che segue viene stampato 
una volta) e non avrà quindi alcun ef¬ 
fetto. Se cercate di fare PRINT "!K*" 
quando K non è un valore intero, avre¬ 
te strani effetti (provateci davvero!). 
Se un numero maggiore di 255 segue 
una direttiva "!" verrà stampato un 
messaggio di "syntax error" e l’esecu¬ 
zione del programma in BASIC termi¬ 
nerà. 

Per quanto possiate usare "!" prima 
di qualunque carattere non avrete al¬ 
cun effetto se lo adoperate con una 
qualsiasi delle opzioni segnate "no" 
nella tabella qui riportata. Dato che "!" 


CONTROLLO DIRETTO DEL CURSORE 

Comando 

Operazione 

Multiplo? 

\ 

direttiva moltiplicatrice (vedi testo) 

sì 

control-A 

stampa ritorno carrello 

sì 

control -B 

"VTAB assoluto" 

sì 

control-C 

pulisce schermo (= HOME) 

no 

control-F 

imposta modo FLASH 

no 

control-I 

imposta modo INVERS 

no 

control-K 

sposta il cursore in giù 

sì 

control-L 

sposta il cursore a sinistra 

sì 

control-N 

imposta il modo NORMAL 

no 

control-O 

pulisce a fine riga 

no 

control-P 

prompt di input utente 

sì 

control-Q 

pulisce a fine pagina 

no 

control-R 

sposta il cursore a destra 

sì 

control-T 

stampa il carattere" 

sì 

control-V 

stampa il carattere_(sottolineatura) 

sì 

control-W 

attende battuta tasto 

no 

control-Y 

ritardo (vedi testo) 

no 

control-Z 

sposta il cursore in su 

sì 

Non serve a nulla adoperare la direttiva moltiplicatrice "/" con le opzioni 

segnate "no " in 

questa tabella: il risultato ottenuto è nullo. 
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Listato 1 
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SOURCE FILE: CONTROLLO CURSORE 

NEXT OBJECT FILE mi IS CONTROLLO CURSORE.OBJO 


94B0: 
94B0: 
94B0 : 
94B0: 
94B0: 


1 ORO $94B0 

2 «CONTROLLO CURSORE 

3 «DI PHILLIP R. ROULEY 

4 «COPYRIGHT (C) 1985 

5 »BY APPLICANDO & 


;PER 48K SYSTEM 


94B0 : 

6 «MICR0SPARC INC. 


94B0: 

7 * 


94B0: 

8 * 


94B0 : 

9 «MONITOR SUBROUTINES 


94B0 : 

10 * 


94B0: 

11 « 


94B0 : 

12 « 


FBC1 : 

13 BASCALC EQU $FBC1 


FDFO: 

14 PRINTCH EQU $FDF0 


03EA: 

15 D0S0UT EQU $3EA 


DEC9: 

16 ERR EQU $DEC9 

;PRINT'S1NTAX ERROR' 

FF4A: 

17 REGSAVE EQU $FF4A 

;SAVE INTERNAL REGISTERS 

FF3F: 

18 REGBACK EQU $FF3F 

;REST0RE REGISTERS 

FDOC: 

19 GETKEY EQU $FD0C 

;UA1T FOR KEYPRESS 

94B0: 

20 « 


94B0 : 

21 « 


94B0: 

22 «DATA STORAGE 


94B0: 

23 « 


94B0: 

24 « 


0007: 

25 XCOUNTER EQU $7 

;USED IN NUMBER ROUTINE 

0006: 

26 PRINTN0 EQU $6 

;CHARACTER C0UNT 

0032: 

27 OUTMASK EQU $32 

;F0R NORMAL, INVERSE AND 


COIO: 28 KEYSTROBE EQU $C010 

94B0: 29 « 

94B0: 30 ♦ 

94B0: 31 * 

94B0: 32 * 


94B0:A9 CC 

33 

LDA 

#>MIN 

94B2:85 36 

34 

STA 

$36 

94B4:A9 94 

35 

LDA 

#<MAIN 

94B6:85 37 

36 

STA 

$37 

9488:20 EA 03 

37 

JSR 

DOSOUT 

94BB:60 

38 

RTS 


94BC: 

39 « 



94BC:A9 AC 

40 RESET 

LDA 

#>NUMBER 

94BE:85 36 

41 

STA 

$36 

94C0:A9 00 

42 

LDA 

HO 

94C2:85 06 

43 

STA 

PRINTNO 

94C4:A9 95 

44 

LDA 

IKNUMBER 

94C6:85 37 

45 

STA 

$37 

94C8:20 EA 03 

46 

JSR 

DOSOUT 

94CB:60 

47 

RTS 


94CC: 

48 « 



94CC: 

49 « 



94CC.-48 

50 MIN 

PM 


94CD:A9 01 

51 

LDA 

tt$l 

94CF:85 06 

52 

STA 

PRINTNO 

94D1:68 

53 

PLA 


94D2:C9 Al 

54 

CMP 

#'! 

94D4:F0 E6 

55 

8EQ 

RESET 

94D6:C9 9A 

56 ENTRY1 

CMP 

#$9A 

94D8:F0 52 

57 

BEQ 

UP 

94DA:C9 94 

58 

CMP 

#$94 

94DC-.F0 44 

59 

BEQ 

QUOTES 

94DE:C9 83 

60 

CMP 

#$83 

94E0:F0 52 

61 

BEQ 

CLEAR 

94E2:C9 8B 

62 

CMP 

#$8B 

94E4:F0 41 

63 

BEQ 

DOWN 

94E6.-C9 8C 

64 

CMP 

#$8C 

94E8:F0 4D 

65 

BEQ 

LEFT 

94EA:C9 92 

66 

CMP 

#$92 

94EC:F0 51 

67 

BEQ 

RIGHT 

94EE:C9 86 

68 

CMP 

#$86 

94F0:F0 55 

69 

BEQ 

FLASH 

94F2:C9 89 

70 

CMP 

#$89 

94F4:F0 56 

71 

BEQ 

INVERSE 

94F6:C9 8E 

72 

CMP 

#$8E 

94F8:F0 57 

73 

BEQ 

NORMAL 

94FA:C9 96 

74 

CMP 

#$96 

94FC:F0 58 

75 

BEQ 

ULINE 

94FE:C9 81 

76 

CMP 

#$81 

9500:F0 59 

77 

BEQ 

RETURN 

9502:C9 90 

78 

CMP 

#$90 

9504:F0 5A 

79 

BEQ 

PROMPT 

9506:C9 97 

80 

CMP 

#$97 

9508:F0 66 

81 

BEQ 

GETCH 

950A:C9 99 

82 

CMP 

#$99 

950C:F0 6E 

83 

BEQ 

DELAY 

950E:C9 8F 

84 

CMP 

#$8F 

9510:F0 6F 

85 

BEQ 

CLEOL 

9512:C9 91 

86 

CMP 

#$91 

9514 :F0 74 

87 

BEQ 

CLEOP 

9516:C9 82 

88 

CMP 

#$82 

9518:F0 79 

89 

BEQ 

ABSVTAB 

951A: 

90 * 



951A: 

91 « 




;SET OUTPUT POINTERS 


; PREPARE TO ACCEPT NUMBER 
;ZERO COUNTER 


jUSQAL ENTRY, EXCEPT AFTER '!' 
;SET COUNTER TO ONE 

:RECOVER CHARACTER FROM STACK 
;IS IT A MULTIPLIER DIRCTIVE ? 
;YES, THEN GET NUMBER 
jENTER HERE AFTER NUMBER COMPLETE 
;CONTROL-Z 

; CONTROL-T ? _ 


;C0NTR0L-C 
; CONTROL-K 
;CONTROL-L 
;CONTROL-R 
;CONTROL-F 
;CONTROL-I 
;CONTROL-N 
;CONTROL-V 
;CONTROL-A 
;CONTROL-P 
;CONTROL-W 
;CONTR0L-Y 
;CONTROL-O 
;CONTROL-Q 
;CONTROL-B 


Listato 2 


«94B0.95EC 


94B0- 

• A9 

CC 

85 

36 

A9 

94 

85 

37 

94B8- 

20 

EA 

03 

60 

A9 

AC 

85 

36 

94C0- 

• A9 

00 

85 

06 

A9 

95 

35 

37 

94C8- 

20 

EA 

03 

60 

48 

A9 

01 

85 

94DQ- 

06 

68 

C9 

Al 

F0 

E6 

C9 

9A 

94D8- 

F0 

52 

C9 

94 

F0 

44 

C9 

83 

94E0- 

F0 

52 

C9 

8B 

F0 

41 

C9 

8C 

94E8- 

F0 

4D 

C9 

92 

F0 

51 

C9 

86 

94F0- 

F0 

55 

C9 

89 

F0 

56 

C9 

8E 

94F8- 

F0 

57 

C9 

96 

F0 

58 

C9 

81 

9500- 

F0 

59 

C9 

90 

F0 

5A 

C9 

97 

9508- 

F0 

66 

C9 

99 

F0 

6E 

C9 

8F 

9510- 

F0 

6F 

C9 

91 

F0 

74 

C9 

82 

9518- 

F0 

79 

20 

F0 

FD 

C6 

06 

DO 

9520- 

F9 

60 

A9 

A2 

4C 

1A 

95 

A9 

9528- 

8A 

4C 

1A 

95 

20 

1A 

FC 

C6 

9530- 

06 

DO 

F9 

60 

4C 

58 

FC 

20 

9538- 

10 

FC 

C6 

06 

DO 

F9 

60 

20 

9540- 

F4 

FB 

C6 

06 

DO 

F9 

60 

A9 

9548- 

7F 

85 

32 

60 

A9 

3F 

4C 

49 

9550- 

95 

A9 

FF 

4C 

49 

95 

A9 

DF 

9558- 

4C 

1A 

95 

A9 

8D 

4C 

1A 

95 

9560- 

A5 

06 

48 

A9 

DF 

20 

1A 

95 

9568- 

68 

85 

06 

A9 

88 

4C 

1A 

95 

9570- 

'20 

4A 

FF 

2C 

10 

CO 

20 

OC 

9578- 

FD 

4C 

3F 

FF 

A5 

06 

4C 

A8 

9580- 

FC 

20 

4A 

FF 

20 

9C 

FC 

4C 

9588- 

3F 

FF 

20 

4A 

FF 

20 

42 

FC 

9590- 

4C 

3F 

FF 

C6 

06 

A5 

06 

18 

9598- 

65 

22 

80 

34 

C5 

23 

10 

30 

95A0- 

85 

25 

48 

A5 

20 

85 

24 

68 

95A8- 

20 

CI 

FB 

60 

C9 

BA 

10 

28 

95B0- 

C9 

B0 

30 

24 

49 

BQ 

18 

48 

95B8- 

A9 

09 

85 

07 

A5 

06 

65 

06 

95C0- 

B0 

0E 

C6 

07 

DO 

F8 

85 

06 

95C8- 

68 

65 

06 

B0 

03 

85 

06 

60 

95D0- 

A9 

01 

85 

06 

20 

C9 

DE 

60 

95D8- 

48 

A9 

CC 

85 

36 

A9 

94 

85 

95E0- 

37 

A5 

06 

DO 

04 

A9 

01 

85 

95E8- 

06 

68 

4C 

D6 

94 





è usato come carattere di comando, 
tenete conto che per stampare un uni¬ 
co "!" dovrete usare "! !" (che viene trat¬ 
tato come "!1!"), mentre per stampar¬ 
ne più di uno dovrete usare il metodo 
normale, cioè "!N!". 

Comandi e attese 

Il comando "VTAB ASSOLUTO" 
(CTRL B) viene usato per mettere il 
cursore nella posizione all’estrema si¬ 
nistra della ennesima riga della fine¬ 
stra di testo corrente. Con questo co¬ 
mando dovete usare la direttiva !, dato 
che un unico control-B verrà inter¬ 
pretato nel senso di "sposta alla sini¬ 
stra in alto della finestra di testo cor¬ 
rente", cioè come un autentico HO¬ 
ME. Per spostarvi all’inizio della en¬ 
nesima riga usate "!Nb". 

Se tentate uno spostamento al di 
sotto del fondo della finestra di testo 
corrente riceverete un messaggio di 
"syntax error" e l’esecuzione del pro¬ 
gramma in BASIC terminerà. Potreb¬ 
be capitarvi di incontrare qualche dif¬ 
ficoltà adoperando il comando di con¬ 
trol-B prima di un comando con¬ 
trol-K (cursore in giù) e cambiando la 
posizione iniziale a sinistra nella fine¬ 
stra di testo. Qualora vi si presenti 
questo problema basta che usiate 
"b!Nk" (home, N cursori in giù) anzi¬ 
ché "!Nb". 

L’opzione di prompt d’uso (CTRL 
P) è utile se è richiesto un input di 
lunghezza nota. Il comando "!Np" pro¬ 
duce N caratteri di sottolineatura, im¬ 
mediatamente seguiti da N sposta¬ 
menti a sinistra del cursore. Il risultato 
netto è che il cursore viene posto sul 
primo degli N caratteri di sottolineatu¬ 
ra. 

Se dovete usare il sistema per l’in¬ 
troduzione di dati, vi conviene adope¬ 
rare forme come INPUT "VALORE 
INIZIALE ? q!10p";A$, in modo che 
lo schermo venga pulito sotto il 
prompt. Naturalmente la stringa di 
prompt, compresi i comandi di con¬ 
trollo del cursore, può essere assegna¬ 
ta a una variabile stringa, per esempio 
IN$, e potete usare il seguente metodo 
di input: PRINT IN$;: INPUT A$. 
Le virgolette nell’INPUT sono neces¬ 
sarie per impedire che venga emesso 
un "?" in più. 

Veniamo ora all’attesa della battu¬ 
ta: l’inclusione di un control-W in 
una stringa di output mette il sistema 
in un loop fino a quando viene premu¬ 
to un tasto. Il control-W può, natu¬ 
ralmente, essere seguito da altri co¬ 
mandi e dati di output. Per esempio 





















potreste avere questa forma: PRINT 
TREMI UN TASTO PER CONTI- 
NU AREwc" ; : PRINT "INTESTA¬ 
ZIONE". Non appena premerete un 
tasto lo schermo verrà pulito e verrà 
visualizzata l’intestazione. La diretti¬ 
va "!" non ha alcun effetto su un co¬ 
mando control—W. 

Il comando "!Ny" (CTRL Y), infine, 
ritarda l’output del carattere successi¬ 
vo. Il valore di N è caricato nella routi¬ 
ne WAIT del monitor a $FCA8. Que¬ 
sto comando può essere utile nei gio¬ 
chi, per disegnare figure animate a un 
ritmo che l’occhio possa agevolmente 
seguire. 

Istruzioni operative 

Per copiare il listato in codice mac¬ 
china, se possedete il DOS 3.3 Tool- 
kit, fate riferimento al listato 1 altri¬ 
menti copiate i dati dal listato 2 andan¬ 
do in Monitor con CALL—151 ed ini¬ 
ziando dalla prima locazione di memo¬ 
ria indicata (es: 94B0: A9 CC 85 e via 
di seguito) per ulteriori informazioni 
fate riferimento alla "Rubrica per chi 
comincia" a pag. 60 della rivista. Una 
volta che avete digitato il listato in co¬ 
dice macchina, assemblandolo in un 
file su dischetto, basta che facciate 
BRUN per attivare il CDC. Dato che 
il codice macchina comincia a $94B0 in 
un sistema DOS 3.3 48K HIMEM de¬ 
ve essere impostata a 38062 per pro¬ 
teggerlo dalla sovrascrittura da parte 
delle stringhe. Se avete il DOS 3.3 
Toolkit fate uso delle istruzioni specia¬ 
li qui sotto. 

Se occorre, potete escludere il pro¬ 
gramma CDC usando un comando 
PRINT CHR$ (4)"PR@.1190" in un 
sistema a dischetto (o semplicemente 
PR@.1190 in un sistema che non sia a 
dischetto). 

Dato che il programma fa affida¬ 
mento sull’uso di comandi a caratteri 
di controllo, dovrete prestare grande 
attenzione digitandoli. Se avete il 
DOS 3.3 Toolkit usate l’opzione APA 
"&S" per rendere visibili i caratteri di 
controllo. Se invece usate il DOS 3.3 
senza il Toolkit eseguite il programma 
che si trova a pagina 155 del manuale 
del DOS. 

A meno che non stia girando qual¬ 
che programma inteso a rendere visi¬ 
bili i caratteri di controllo, non cercate 
di listare il programma mentre il CDC 
è attivo. Se cercherete di farlo tutti i 
comandi del cursore e le direttive ! 
entreranno in funzione e il listato sullo 
schermo sarà ingarbugliato senza re¬ 
missione. 


951A: 20 FO 

F0 

92 PRINT 

JSR 

PRINTCH 

;MUST BE A NORMAL CHARACTER TO PRINT 

951D:C6 06 


93 

DEC 

PRINTNO 

iDECREMENT COUNTER 

951F :D0 F9 


94 

BNE 

PRINT 

;M0RE ? 

9521:60 


95 

RTS 



9522: 


96 * 




9522:A9 A2 


97 QUOTES 

LOA 

#*A2 

;ASCII FOR 

9524:4C 1A 

95 

98 

JMP 

PRINT 


9527: 


99 * 




9527: 


100 * 




9527:A9 8A 


101 D0UN 

LOA 

#*8A 

;L0AD W1TH 'CONTROL-J' 

9529:4C 1A 

95 

102 

JMP 

PRINT 


952C: 


103 * 




952C: 20 1A 

FC 

104 UP 

JSR 

*FC1A 


952F:C6 06 


105 

OEC 

$6 


9531:00 F9 


106 

BNE 

UP 


9533:60 


107 

RTS 



9534: 


108 * 




9534: 


109 * 




9534:4C 58 

FC 

110 CLEAR 

JMP 

*FC58 


9537: 


111 * 




9537:20 10 

FC 

112 LEFT 

JSR 

*FC10 


953A:C6 06 


113 

DEC 

$6 


953C:D0 F9 


114 

BNE 

LEFT 


953E:60 


115 

RTS 



953F: 


116 * 




953F: 20 F4 

FB 

117 RIGHT 

JSR 

*FBF4 


9542 :C6 06 


118 

DEC 

$6 


9544:00 F9 


119 

BNE 

RIGHT 


9546:60 


120 

RTS 



9547: 


121 * 




9547:A9 7F 


122 FLASH 

IDA 

#*7F 


9549:85 32 


123 SETMODE 

STA 

0UTWSK 


9548:60 


124 

RTS 



954C: 


125 * 




954C :A9 3F 


126 INVERSE 

LOA 

#$3F 


954E:4C 49 

95 

127 

JMP 

SETMODE 


9551: 


128 * 




9551:A9 FF 


129 NORMAL 

LOA 

#*FF 


9553:4C 49 

95 

130 

JMP 

SETMODE 


9556: 


131 * 




9556:A9 0F 


132 ULINE 

LOA 

#*DF 


9558:4C 1A 

95 

133 

JMP 

PRINT 


955B: 


134 * 




955B:A9 80 


135 RETURN 

LDA 

#*8D 


9550:4C 1A 

95 

136 

JMP 

PRINT 


9560: 


137 * 




9560:A5 06 


138 PR0MPT 

LOA 

*6 

;N0 OF PROMPT CMRS REQUID 

9562:48 


139 

PM 


:SAVE 0N STACK 

9563:A9 0F 


140 

LDA 

#*DF 

jUNDERLINE CHARACTER 

9565:20 1A 

95 

141 

JSR 

PRINT 

; PRINT UNDERLINE CMRS 

9568:68 


142 

PLA 


: RECOVER NUMBER FR0M STACK 

9569:85 06 


143 

STA 

$6 

;RETURN T0 *6 

956B:A9 88 


144 

LDA 

#*88 

;'CURS0R-LEFT' 

9560:4C 1A 

95 

145 

JMP 

PRINT 

;PRINT THEM 

9570: 


146 * 




9570:20 4A 

FF 

147 GETCH 

JSR 

REGSAVE 

;CLEAR STROBE 

9573:2C 10 

CO 

148 

BIT 

KEYSTROBE 


9576:20 OC 

FD 

149 

JSR 

GETKEY 

;GET A KEY 

9579:4C 3F 

FF 

150 

JMP 

REGBACK 


957C: 


151 * 




957C:A5 06 


152 DELAY 

LDA 

*6 

;L0AD WAIT PER10D REQU1RED 

957E:4C A8 

FC 

153 

JMP 

*FCA8 

{MONITOR UAIT ROUTINE 

9581: 


154 * 




9581:20 4A 

FF 

155 CLEOL 

JSR 

REGSAVE 

; SAVE REGISTERS 

9584:20 9C 

FC 

156 

JSR 

*FC9C 

{MONITOR ROUTINE 

9587:4C 3F 

FF 

157 

JMP 

REGBACK 

;RECOVER REGS 

958A: 


158 * 




958A: 20 4A 

FF 

159 CLEOP 

JSR 

REGSAVE 


9580:20 42 

FC 

160 

JSR 

IFC42 


9590:4C 3F 

FF 

161 

JMP 

REGBACK 


9593: 


162 * 




9593:C6 06 


163 ABSVTAB 

DEC 

*6 

;SEE TEXT 

9595:A5 06 


164 

LDA 

*6 

jABSOLUTE POSITI0N REQUIRED 

9597:18 


165 

CLC 



9598:65 22 


166 

ADC 

*22 

;ADD T0 'TOP-OF-UINDOU' 

959A:B0 34 


167 

BCS 

ERROR 

;0VERFL0W ? 

959C :C5 23 


168 

CMP 

*23 

{GREATER T mi 'B0TT0M 0F UI1ND0UT ? 

959E: 10 30 


169 

BPL 

ERROR 


95A0:85 25 


170 

STA 

*25 


95A2:48 


171 

PM 



95A3:A5 20 


172 

LDA 

*20 


95A5:85 24 


173 

STA 

*24 


95A7:68 


174 

PLA 



95A8:20 CI 

FB 

175 

JSR 

BASCALC 


95AB:60 


176 

RTS 



95AC: 


177 * 




95AC: 


178 * 




95AC:C9 BA 


179 NUMBER 

CMP 

#*BA 

{ASCII FOR 

95AE:10 28 


180 

BPL 

N0TNUNBER 


95B0:C9 B0 


181 

CMP 

#*B0 

{ASCII FOR "0' 

95B2:30 24 


182 

BM1 

N0TNUMBER 


95B4:49 B0 


183 

EOR 

t*B0 

{COVERT ASCII CODE TO NUMBER 

95B6:18 


184 

CLC 



95B7:48 


185 

PM 


; SAVE 0N STACK 

95B8:A9 09 


186 

LDA 

#*9 


95BA:85 07 


187 

STA 

XCOUNTER 

{SET FOR MULTIPLY-BY-TEN 

95BC:A5 06 


188 

LDA 

PRINTNO 

;PRINTN0-S0-far (continua) 
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DORLAND ITALIANA 



L’arte di decidere richiede strumenti 

di sintesi veloci e affidabili, capaci di sintetizzare 

i singoli punti in un unico quadro. 



Più difficili sono le decisioni che devi prendere, 
più importante è che tutti gli elementi siano organiz¬ 
zati in maniera sintetica e comprensibile. 

Il tuo personal, anche se è certamente in grado 
di fornirti tutti i dati di cui hai bisogno, non è sempre 
capace di esporteli nella forma in cui ti servono. 

Strumenti decisionali insostituibili 

Per questo la Hewlett-Packard, all’avanguardia 
nell’elettronica mondiale, ti propone i suoi plotter, che 
organizzano fatti e cifre 
complesse in grafici co¬ 
lorati, facili da compren¬ 
dere. Con i plotter HP 
tendenze di mercato, 
analisi di prodotto, pre¬ 
visioni finanziarie 
prendono corpo in diagrammi precisi, curve colorate, 
istogrammi, grafici circolari, accelerando i tuoi pro¬ 
cessi decisionali e rendendo le tue presentazioni, 
meeting, rapporti, più incisivi ed efficaci. Troverai i 
plotter HP in tre versioni: a 8 e 6 penne, nel formato 
UNI A3 ed A4, ed a 2 penne, nel formato UNI A4. 

Compatibili con tutti i personal 

E potrai usarli col tuo personal, anche se non hai 
un HP, infatti i nostri plotter sono compatibili con 













tutti i principali personal sul mercato. 

Se vuoi saperne di più ti basterà compilare in 

ogni sua parte 
l’accluso coupon: 
riceverai, senza 
impegno, una 
documentazione 
dettagliata sui 
plotter HP e il loro 
impiego. 

Hewlett-Packard Italiana S.p.A. 

Via G. Di Vittorio 9 - 20063 Cernusco Sul Naviglio 
Milano-Tel. 02/923691 



Se vuoi saperne di più sui plotter HP 

invia questo tagliando a Hewlett-Packard Italiana S.p.A. 

Marketing Communication C.P. 10190,20100 Milano. 
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Listato 3 


1 

2 

3 

4 

5 
4 

7 

8 

9 

10 
15 
20 
25 
30 

40 

50 

40 

70 

80 

100 

150 

200 

210 

220 

230 

240 

250 

240 

270 

280 


****************************** 
« 

« 

* 


«DEMO» 

DI PHILL1P R. R0UILEY 
COPYRIGHT (0 1985 
BY APPLICANDO & 
MICRO-SPARC, INC 


****************************** 

»> LE MINUSCOLE SONO LETTERE DI CONTROLLO «< 
HIMEM: 38040 

PRINT CHR$ (4)*BRUN CONTROLLO CURSORE.OBJO* 

TEXT : HOME 

Q$ = CHR$ (34): REM VIRGOLETTE 

PRINT *i'40 "; : POR T = 0 TO 10: PRINT *i n!38ri n';: NE 

XT : PRINT V40 n* 

PRINT *'3b'9rDIRECT CURSOR CONTROL* 

PRINT ■!5b!!9 pDI PH1LLIP R. ROULEY* 

PRINT *!7b'l3rVERSI ONE 1.0* 

PRINT *‘1Gb* 13r0TT0BRE 1981* 

PRINT * 1 24bPREMl UN TASTO PER CONTINUARE wc* 

PRINT 'SONO DISPONIBILI LE SEGUENTI OPZIONI :-a*38v* 
PRINT *'5b* 

PRINT *iAn STAMPA RITORNO CARRELLO 

PRINT *iBn 'VTAB ASSOLUTO'- 

PRINT 'iCn PULISCE SCHERMO = HOME* 

PRINT *iFn IMPOSTA MODO LAMPEGGIAMENTO* 

PRINT *iIn IMPOSTA MODO INVERSO* 

PRINT *iKn SPOSTA IN GIU' IL CURSORE* 

PRINT *iLn SPOSTA A SINISTRA IL CURSORE* 

PRINT *iNn IMPOSTA MODO NORMALE’ 

PRINT *lOn PULISCE A FINE LINEA* 


290 PRINT *iPn PROMPT UTENTE* 

300 PRINT * iQn PULISCE A FINE PAG1M* 

310 PRINT *iRn SPOSTA A DESTRA IL CURSORE* 

320 PRINT *iVn SOTTOLINEA CARATTERE* 

330 PRINT *iWn ATTENDE BATTUTA TASTO* 

340 PRINT *iYn RITARDO* 

350 PRINT ’iZn SPOSTA IN SU IL CURSORE* 

340 PRINT "24bPREMI UN TASTO PER CONTINUARE wc* 

400 PRINT * 1 4b!5 DIRETTIVA STAMPA MULTIPLA :- "a'5 '29=* 
410 PRINT *'8bQUALSlASl CARATTERE 0 CONWDO PUÒ" ESSEREaRIP 
ETUTO FINO A 255 VOLTE USFNDO LA DIRETTIVA '!!' 

420 PRINT * 1 12bE.G. PR1NT*Q$***Q$* DA' :- »* 

440 PRINT "14bM PRINT *9$* 11 15**0$* DA' '15»* 

450 PRINT * 1 18bQUALSlASI TENTATIVO DI USARE UN VALOREaMAGGI 
ORE DI 255 IN UNA DIRETTIVA aMULTIPLA DARA' UN MESSAGGI 
0 DI * Q$*SYBNTAXaERROR*Q$* MESSAGE 
440 PRINT *24bPREMI UN TASTO PER CONTINUARE wc*; 

500 PRINT "8 CONWDO DI 'ABSQLUTE VTAB'a'8 '234* 

510 PRINT "5bQUEST0 COTWDO E' ANALOGO AL COfWDOaVTAB iMA 
n RIGUARDA LE LINEE NELLAaCORRENTE FINESTRA DI VISUALIZ 
ZAZI ONE* 

550 PRINT * 1 24bPREMI UN TASTO PER CONTINUARE wc*; 

400 PRINT "4b4 ESEMPIO DI CONTROLLO DIRETTO DEL CURSOREa'4 
!32X* 

405 Pl$ = "13bl0r*:P2$ = "13b!24r* 

410 DI$<1) = *i klll * kl11 n* 

420 DI$(2) = , i* klll klll *n* 

430 DI$<3) = *i* klll * klll *n* 

440 Dl$<4) = *i» «klll klll* *n* 

450 Dl$(5) = 'i* *klll $ klll* *n* 

455 DI$<4) = *i» «klll* «klll* «n* 

440 FOR T = 0 TO 250: PRINT P1$DI$( RND (1) * 4.5)P2$DI$< R 
ND (1) * 4.5): NEXT 


Come funziona 
il programma 

Quando fate il BRUN del CDC, es¬ 
so modifica il puntatore CWSL e il 
CWSH in modo che tutti i caratteri in 
uscita vengano prima esaminati dal 
programma. I caratteri normali per la 
stampa vengono trasmessi alla norma¬ 
le routine di output. Quando vengono 
individuati i caratteri speciali di con¬ 
trollo definiti dal programma, essi 
vengono immediatamente eseguiti an¬ 
ziché essere passati alla routine di out- 


95BE:45 04 

189 AGAIN 

ADC 

PRINTNO 

95C0:B0 0E 

190 

8CS 

ERROR 

95C2:C4 07 

191 

DEC 

XCQUNTER 

95C4:D0 F8 

192 

8NE 

AGAIN 

95C4:85 04 

193 

STA 

PRINTNO 

95C8:48 

194 

PLA 


95C9:45 04 

195 

ADC 

PRINTNO 

95CB:B0 03 

194 

BCS 

ERROR 

95CD:85 04 

197 

STA 

PRINTNO 

95CF:40 

198 

RTS 


95D0: 

199 * 



95D0: 

200 * 



95D0: 

201 * 



95D0: 

202 * 



95D0: 

203 * 



95D0:A9 01 

204 ERROR 

LDA 

kl 

95D2:85 04 

205 

STA 

PRINTNO 

95D4:20 C9 DE 

204 

JSR 

ERR 

95D7:40 

207 

RTS 


95D8: 

208 * 



95D8: 

209 * 



95D8:48 

210 NOTNUMBER Pftt 

95D9:A9 CC 

211 

LDA 

k>MAIN 

95DB:85 34 

212 

STA 

$34 

95DD:A9 94 

213 

LDA 

k<MAIN 

95DF:85 37 

214 

STA 

$37 

95E1:A5 04 

215 

LDA 

PRINTNO 

95E3:D0 04 

214 

BNE 

OK 

95E5:A9 01 

217 

LDA 

kl 

95E7:85 04 

218 

STA 

PRINTNO 

95E9:48 

219 0K 

PLA 


95EA:4C D4 94 

220 

JMP 

ENTRY 1 

*** SUCCESSFUL ASSEMBLY: NO ERRORS 


Quando entra in azione la direttiva ! 
il programma passa a una diversa su¬ 
broutine che accumula i successivi ca¬ 
ratteri numerici in un numero nella 
locazione di memoria $6. Qualsiasi ca¬ 
rattere non numerico fa terminare 
questo modo, e il numero memorizza¬ 
to in $6 viene allora usato per moltipli¬ 
care l’effetto del carattere seguente. 

Se tentate di usare un moltiplicatore 
maggiore di 255, il programma salta 
alla routine di "syntax error" del BA¬ 
SIC destinata a scrivere il messaggio di 
errore e a fermare il programma in 
BASIC. Se una direttiva ! non è segui¬ 
ta da un numero il numero memoriz- 


;ADD 
; >255 

;ADJUST COUNTER 

;PR1NTNO=PRINTNO*10 
{RECOVER NEW DIGIT TO STACK 
;ACC=OLD*104NEU 
; > 255 

;NEU VALUE 


;HERE AFTER LAST NUMBER CHARACTER 


Il listato 2 si salva con 
BSAVE CONTROLLO CURSORE. 
0BJ0,A$94B0,L$ 13D 


zato in $6 sarà zero; allora il CDC 
controlla questo e lo sostituisce con un 
uno, cosicché il ! viene in pratica igno¬ 
rato. 

Modifiche 

Il programma è stato scritto e as¬ 
semblato per l’inizio a $94B0 all’estre¬ 
mità superiore della memoria in un 
sistema di 48K con il DOS 3.3. In un 
sistema di 32K dovrete fare invece 
l’ORG del programma a $54B0 (con il 
DOS 3.3). 

Dovrebbe essere possibile usare il 
programma anche in un sistema privo 
di DOS; le sole modifiche richieste so¬ 
no l’eliminazione dal codice di tutti i 
riferimenti alla routine DOSOUT del 
DOS, il cambiamento dell’origine per 
sfruttare lo spazio supplementare di 
RAM e la modifica dell’impostazione 
di HIMEM per la protezione del pro¬ 
gramma dalla sovrascrittura da parte 
di stringhe. 

Se possedete il DOS 3.3 Toolkit do¬ 
vete aggiungere una direttiva "REL" 
come prima linea del listato dell’as¬ 
semblatore, in modo da produrre un 
modulo rilocabile, che potete poi cari¬ 
care usando RLOAD senza preoccu¬ 
parvi di impostare HIMEM. 

Il programma in basic del listato 3 è 
un dimostrativo del modo di introdu¬ 
zione dei comandi con il programma 
CDC 

r-—--- 

Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degii altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- ¥ 
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One-liners 




I nteressante e pratico, il primo 
one-liner di questo numero: cal¬ 
cola lo scorporo Iva. Partendo dalla 
somma lorda, trova l’imponibile netto 
e la relativa quota di imposta. 


<0 

O 

< 

£ 


t INPUT -CIFRA DA SCORPORARE: ': 

A*: INPUT 'ALIQUOTA IVA: ':B 
l:C = INT (( VAL (Al) / (10 
0 ♦ VAL (BD) * VAL (B$)) ♦ 
.5): PR1NT 'IMPONIBILE = •< VAL 
(Al) - 0-. IVA = -C-. T 
OTALE = -Al: IF Al < > '0' THEN 
RUN 


Ecco un breve gioco che metterà a 
dura prova il vostro intuito. Consiste 
nell’indovinare un numero scelto a ca¬ 
so dall’Apple, digitandolo; a ogni vo¬ 
stro tentativo, naturalmente, il com¬ 
puter produce un commento per aiu¬ 
tarvi ad avvicinarvi alla verità; le sue 
risposte possibili sono tre: 

DI MENO — Quando il numero inse¬ 
rito è maggiore di quello scelto. 

DI PIU’ — Quando è minore. 
BRAVO! - Quando la risposta è esat- 


CLEAR : HOME : PRINT TAB< 10) 
•INDOVINA IL NUMERO':A$<0) = 
•BRAVO'":AI(1> = 'DI MENO* :A 
1(2) = -01 PIU'*:N = INT ( RND 
(1) * 1000): FOR I = 1 TO 2: 

C = C ♦ 1: PRINT C:\ ':: INPUT 
A:P = (1 AND (N > A)) * 2 + 

(1 AND (N < A)): PRINT AI(P) 

:I = <1 AND (P = 0)) * 2: NEXT 
: PRINT -ANCORA?';: GET CI: 0N 
((83 - ASC (CD) = 0) GOTO 
1 



Questa breve routine permette di 
far scorrere una frase sullo schermo da 
destra a sinistra per parecchie volte. 


HOME : VTAB 5: INPUT 'LINEA ( 
40 CAR. MAX) ';LI: QN LEN ( 
LI) ) 40 GOTO 10:SI = ". 


.':LI = LI ♦ MIDI (SI 

,1,40 - LEN (LI)): FOR I = 
i TO 160: VTAB 20: PRINT LI: 
LI = R1GHTI (LI,3?) ♦ LEFTI 
(LI, 1): FOR G = 1 T0 80: NEXT 
6,1 


Ecco un one-liner piuttosto inte¬ 
ressante: inserito in un programma, 
permette di scrivere, completa di se¬ 
paratori, una cifra qualsiasi, memoriz¬ 
zata nella variabile X. Per esempio 
1000000 diventerà 1.000.000. 



o> 

e 

< 

H- 

</) 


1000 XI = • ' 4 STRI (X) :YI = 

,B :Y = LEN (XI) - 2: FOR X = 
Y T0 2 STEP - 3:YI = -.- ♦ 
MIDI (XI,X,3) 4 Yl: NEXT :X 
! = MIDI ( LEFTI (XI,(X 4 2 
)) 4 Yl,5): RETURN 


cm *300.323 
in 

O 0300- A9 10 8D F2 03 A9 03 8D 
£ 0308- F3 03 49 A5 8D F4 03 60 
2 0310- 20 00 C3 A9 1A 20 ED FD 
co 0318- A9 30 20 ED FD 20 EA 03 
□ 0320- 4C 3C D4 00 


CHALLENGER GAME è il nome 
di questo miniprogramma, e si tratta 
di un gioco di abilità. Consiste nel gui¬ 
dare un veicolo spaziale attraverso un 
mare di meteoriti. BUONA FORTU¬ 
NA ! 


HOME : PRINT TAB( !2)'S0L0 TA 
STI FRECCIA*: UAIT - 16384, 
128:P = 1212: FOR I = 0 T0 1 
STEP 0: P0KE P.214: HTAB 40 
: VTAB 22: PRINT -**“:I = SCRN( 
P - 1192,20) / 5 - 1 : P0KE P 
,160: HTAB RND (1) * 38 4 l 
: VTAB 24: PRINT -*':P = P 4 
INT <( PEEK ( - 16384) - 14 
2) / 6):S = S 4 1 : NEXT : PRINT 
TAB( 14)'PUNTI ='S 


o 

in 

O 

I- 

< 

h 

(/> 


Ecco un’utile routine per corregge¬ 
re i listati in DOS 3.3. Installate il pro¬ 
gramma in memoria con il <RUN> e 
quindi caricate con <LOAD> il pro¬ 
gramma che dovete correggere. Fa¬ 
cendo il LIST, il Monitor presenterà 
un listato a 33 battute senza spazi vuo¬ 
ti. 

Ora con <ESC>I muovete il curso¬ 
re all’inizio della linea, premete nuo¬ 
vamente <ESC> e ricopiate tutta la 
linea con la freccia destra, effettuando 
le eventuali correzioni. 

Per disattivare l’utility battete 
CTRL-RESET. 


« 10 
O 


co 


FOR X = 0 T0 7: READ A: P0KE 
768 4 X,A: NEXT : DATA 201,1 
60,208.1,96.76.240,253: P0KE 
54,0: P0KE 55,3: CALL 1002: P0KE 
33,33 


Questa utile routine permette di 
scrivere un messaggio in una finestra 
di testo in reverse sopra un testo e 
quindi far riapparire il precedente te¬ 
sto integro. 

Date il <RUN> quando lo schermo 
è completamente riempito di caratteri 
e vedrete che piacevole effetto. 

1 A = 128:B = 1201:C = 32: DIM AK 
(4,21): FOR D = 0 T0 4: FOR 
w E = 0 T0 21 :F = B 4 <D * A) 4 
E:AX(D,E) = PEEK (F): P0KE 
O <F),C: NEXT : NEXT : VTAB 11 
£ : HTAB 12: PRINT -QUESTO E' 

H UN DEMO': VTAB 13: HTAB 14: PRINT 
c n «PREMI RETURN-: GET Al: FOR 

-i D = 0 T0 4: FOR E = 0 T0 21: 

G = AX(D.E): P0KE (B 4 <D * 

A) 4 E),6: NEXT : NEXT 

Gioco grafico e sonoro di pulizia 
dello schermo in pagina di testo. Ter¬ 
mina presentando una cornice in re¬ 
verse. 

Si disattiva con "CTRL—RESET". 


1 X = 2:Y = 2:R = - 1:D = R: FOR 
1 = 1024 T0 2047: P0KE 1,32: 



NEXT : FOR I 

= 1 T0 

1556:A = 


X = 39:B = Y = 

ro 

c~> 

il 

UJ 

<VI 

II 

X 

IO 

= Y = 23 :D = 

D 4 C 

* 2 4 A * 

O 

- 2 4 A * B * 

2 : R = 

R 4 B * 

h- 

< 

2 4 E * - 2: 

HTAB X 

: VTAB Y 


: PRINT ' ■: VTAB Y: 

IF C * 

</> 

E = 0 THEN Y = 

Y 4 R 

- A * E 

□ 

* 20 :X = X 4 

D 4 A 

* E: HTAB 


X: 'VTAB Y: PRINT 

:Z = (A 4 


B ♦ C ♦ E > 0) 

* - 

16336:Q = 


PEEK <Z):Q = 

PEEK 

(2): NEXT 


Questo breve one—liner scrive alla 
rovescia sullo schermo un nome o una 
frase memorizzata nella variabile A$. 


Questo one—liner, in assembler, vi 
permette, una volta installato in me¬ 
moria, di passare in 80 colonne pre¬ 
mendo CTRL-RESET. 

Funziona su Apple//c e //e con sche¬ 
da 80 colonne. Non funziona PRO- 
DOS. 

Se è già installato in memoria, viene 
attivato con "CALL 768". 

Per salvarlo su disco battete BSA- 
VE COL.80,A$300,L$24. 


$ 10 HI = ": INPUT Al: FOR 8 = LEN 
o (Al) T0 1 STEP - 1:MI = RIGHTI 

h- (AI.LEN (Al) - S 4 l)sM$ = 

< LEFTI (Ml.l):HI = HI 4 MI: NEXT 
fc S: PRINT H*:M$ = RIGHTI (Al 
□ , LEN (Al) - S 4 1) 


Cento programmi one liner sono dispo¬ 
nibili su dischetto. I prezzi e le modalità 
d’ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 

- 
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CSF è uno schedario elettronico 
per Macintosh e per appiè Ile e 
Ile. CFS funziona come gli sche¬ 
dari tradizionali: non ci sono 
complicate procedure da impara¬ 
re. 

Decidete quello che volete mette¬ 
re nelle schede: nome, indirizzo, 
fatturato, numero dei clienti, qua¬ 
lunque informazione vi faccia co¬ 
modo. CFS è pronto per lavorare, 
nessun problema con la lunghez¬ 
za delle informazioni: ci pensa 
CFS a non sprecare spazio, senza 


porvi inutili limiti 

CSF: Italian Style 
in ufficio 

CSF è realizzato in Italia. CFS co¬ 
nosce le nostre abitudini CFS è 
continuamente aggiornato. La 
nuova versione 2.0 per Macin¬ 
tosh permette, tra l’altro, di cam¬ 
biare la struttura di uno scheda¬ 
rio già pieno, senza perdere infor¬ 
mazioni Di ordinare per ordine 
alfabetico o numerico, in un ver¬ 
so o nell’altro. Di stampare re- 


port con totali e subtotali Di lavo¬ 
rare sempre meglio. Qui, in Italia. 

CFS non è solo 

CFS è un elemento di un sistema 
che cresce con voi. CFS Stampe è 
un altro elemento, o modulo, del¬ 
la famiglia CFS Stampe prende i 
dati che volete dagli schedari di 
CFS, e produce report o relazioni 
nel formato che disegnate su vi¬ 
deo. E CFS crescerà ancora. 

CFS è uno schedario. Il vostro 
schedario. 



Viale Restelli, 5 • 20124 Milano - Tel. 02/683797-6888228-6880841-6880542-6880843 


L’acquisto di soTtware originale significa: garanzia di prodotto, 

possibilità di sostituzione anche neloaso di versioni aggiornate o di versioni nazionalizzate. 
Esigete sempre software originale. 















sìy Forfettariao generale? Registri, partitari, libri giornale... 
Garantire il perfetto ordine previsto dal fisco, in una contabilità 
generale, è davvero difficile, come purtroppo sanno quanti sono 
incappati in grosse multe per piccole disattenzioni fatte in buona 
fede. Ecco finalmente un programma per Mac, in grado di dare 
realmente una mano nella gestione dei vostri conti. 


Prima nota con Mac? 



I tre programmi di contabilità per 
Macintosh: Clara della Multidata, 
Coge dell’Informatica Biella e 
ContaMac della Keysoft. Allegata 
a quest’ultimo la piccola 
interfaccia protettiva. 


L 9 ultima legge del ministro Visen- 
tini ha posto il piccolo-medio 
imprenditore davanti a una scelta: op¬ 
tare per la contabilità forfettaria oppu¬ 
re mantenere una contabilità generale 
con tutti i problemi e le spese che ne 
derivano. 

Attraverso una contabilità genera¬ 


le, infatti, oltre a tenere i registri Iva 
acquisti e Iva vendite, bisognerebbe 
gestire un partitario sempre aggiorna¬ 
to dei clienti e fornitori in relazione 
con un piano dei conti, il libro giornale 
della situazione contabile, un eventua¬ 
le registro per i corrispettivi ed even¬ 
tualmente un registro di magazzino 
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con carico e scarico. Tutto rigorosa¬ 
mente, ma soprattutto fiscalmente in 
ordine. 

Dopo il rodaggio, forse un po’ lun¬ 
go, del Macintosh, quest’anno sono 
usciti finalmente i primi programmi 
italiani di contabilità generale per la 
macchina gioiello di Cupertino. Da te¬ 
nere presente però che non basta un 
buon programma per riuscire a tenere 
una contabilità generale corretta, bi¬ 
sogna avere anche delle nozioni ap¬ 
profondite di ragioneria. Per esempio, 
se per la contabilità dei clienti non si 
presentano molte difficoltà, quella dei 
fornitori necessita di un’assegnazione 
precisa della natura dei conti degli ac¬ 
quisti effettuati: bisogna, per esem¬ 
pio, saper distinguere un costo plu¬ 
riennale, individuare gli ammorta¬ 
menti, fare attenzione ai ratei e così 
via. A ogni modo, con un buon pro¬ 
gramma anche chi di contabilità non è 
proprio un esperto può svolgere una 
parte del lavoro che farebbe fare a un 
commercialista risparmiando così 
tempo e denaro e avendo sempre sotto 
mano gran parte della situazione. 

Quali programmi 

Vediamo ora in analisi le caratteri¬ 
stiche dei programmi di contabilità ge¬ 
nerale per Macintosh. 

• Clara. Necessita di una configura¬ 
zione minima di 128Kbyte, un drive 
aggiuntivo e una stampante Image 
Writer 80 colonne. Il pacchetto è strut¬ 
turato in varie applicazioni che attin¬ 


gono i dati e le informazioni dagli stes¬ 
si archivi. Questo se da una parte por¬ 
ta a una perdita di tempo per passare 
da un programma all’altro, dall’altra 
ne guadagna in semplicità d’utilizzo. 
La prima nota può contenere fino a 
1200 conti con 4500 righe. Questi dati 
possono aumentare fino a 12 volte a 
seconda della capacità dell’eventuale 
disco rigido che viene usato. A breve 
tempo saranno a disposizione i pro¬ 
grammi di magazzino e di fatturazione 
interattivi con Clara. Prodotto e distri¬ 
buito da Multidata, viale Timavo 97, 
Reggio Emilia, telefono 0522/30397, 
Clara costa L. 1.500.000 Iva esclusa. 

• Coge. All’acquisto vengono fissa¬ 
ti i dati anagrafici della ditta che ordi¬ 
na il programma. Un semplice metodo 
di protezione che, mantenendo fissa la 
ragione sociale, da una parte non ne 
permette l’utilizzo ai numerosi pirati 
di software ma dall’altra ne esclude la 
multiaziendalità, vale a dire che un 
commercialista non potrà mai usarlo 
per tenere differenti contabilità (il 
programma per commercialisti, in 
preparazione, sarà comunque disponi¬ 
bile a breve, probabilmente allo stesso 
prezzo). Richiede una configurazione 
con 512 kbyte, un drive aggiuntivo e 
un Image Writer 80 o 132 colonne. 
Non ha predisposizioni per l’uso di un 
disco fisso così la capacità massima del 
pacchetto è la gestione di 500 conti, 
1200 clienti e fornitori, 1000 transazio¬ 
ni e 1000 documenti contabili. Peculia¬ 
re del programma l’aggancio con i pro¬ 
grammi Microsoft: con un apposito di¬ 
schetto fornito nel pacchetto è possibi¬ 


Tabella 2. 

Le stampe possibili con i tre 
programmi. 

LE POSSIBILITÀ 1 

DI STRMPR 

DEI PROGRAMMI 

CLARA 

COGE 

CONTA MAC 

aliquote iva 


• 

# 

codici esenzione 

# 

• 

• 

registro Iva 

» 

• 

» 

riepilogo iva 

» 

# 

• 

piano dei conti 

• 

• 

• 

bilancio 

• 

• 

• 

lista movimenti 

• 

• 

m 

giornale bollato 

# 

• 

m 

partite aperte 


• 

# 

estratti conto 

• 

• 

• 

causali movimenti 

• 

• 

• 

corrispettivi 

• 

• 

• 

allegati cli/for 

• 

• 

• 

conti di aggancio 

• 

• 

• 

primanota 

• 

• 

• 


le lavorare con Multiplan, Chart, File 
e Word. Costa L. 1.150.000, Iva esclu¬ 
sa, ed è un programma dellTnformati- 
ca Biella, via Roma 11, Biella (VC), 
telefono 015/24181. 

• ContaMac. Nella confezione del 
manuale c’è una piccola interfaccia le¬ 
gata a una scatolina nera. È il sistema 
di protezione contro le copie e contro i 
curiosi: il programma, infatti, prima di 
partire verifica che nella porta del mo¬ 
dem sia collegato il suo "antifurto". Le 
capacità di ContaMac sono, con una 
configurazione base di 512kb, drive 
esterno e stampante Image writer, di 
200 mastri conti e sottoconti, 500 ana¬ 
grafiche clienti e fornitori e 1000 righe 
di prima nota. Con un disco fisso da 
20Mb, predisposizione del program¬ 
ma, si passa rispettivamente a 500, 
2000 e 5000 e viene aggiunta l’opzione 
di registrazione del numero di partita e 
la data di scadenza della prima nota. A 
partire dal 1986 verrà fornito il pro¬ 
gramma di magazzino/fatturazione in¬ 
terattivo con ContaMac. È prodotto 
dalla Keysoft, via dei Carantani 1, Va¬ 
rese, telefono 0332/240098, e costa L. 
950.000 Iva esclusa. 

Luca Salmoiraghi 


Tabella 1. 

I principali dati dei 
programmi di 
contabilità per 
Macintosh. 


# Disponibile 

O Disponibile dal 1986 

* Con la configurazione 
base 


ORTI 

PRINCIPAL 1 

CLARA 

COGE 

CONTA 

MAC 

configurazione min. 

128Kb 

512Kb 

512Kb 

multiaziendale 

• 

o 

m 

aggancio programmi 


• 


disco fisso 

20 Mb 


20 Mb 

fatturazione 

o 

o 

• 

magazzino 

o 

o 

# 

n.max clienti * 

400 

600 

250 

* 

n.max fornitori 

400 

600 

250 

* 

n.max conti 

1.200 

500 

200 

* 

righe prima nota 

4.500 

1.000 

1.000 

prezzo xlOOO iva ine. 

1.770 

1 357 

1.121 
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3 - Settembre/Ottobre 19 ^ Ba5e 

7.000 - Un ? r 2f^cco Logo in itaVia- 
accessibile a tutti E te i eC amera e il 

n0 • Una Etichette spirilose 0 
tuo Apple v ®de n di ogni genere • 
bizzarre, dilavoro n .f e associa- 
Piccoli editori, circ • sQcl e a bbo- 
zionì possono ragg 9^ ^ questo 

nati facilmente- s | ven t t 0 .Equo 

programma dal costo con . ( 0 in 

canone ^VisCa^P M _ 80 
quiiini • Un ^ r .°i esonda puntata del 
stampa \ graticr dorna nde sullo 
corso di Bas ' c . cnnndere alle Quali basta 
schermo, per f' s P°" d pronlo in cinque 


5 . Gennaio-Febbraio ItM 

7.000 - La tecmW^ / # Mclntos h, 

cataadportatile • In 
piccolo, mane c K' e eq ni di un anno 
memoria i vostr r J^a^er la contabili- 
intero • Un P^^ n m g a ^co per due, nel 
to’ sempl'hcat& * Un 9^ p cannon i di 
quale si danno investor m portafoglio- 
grosso calibro , nnra mmi da digitare 

uno dei mìgli»ptogn ™ mila 

(oppure su dischetto a soi« guad(0 

lire) tornisce in temp re . investi . 

esatto di come v ^ semp8ce come 
menti finanziari. ^ er \ a ge- 

struttura, Investor e I «a» £ Wolì . 
stione del propno po tfi Basic . g 


4 - Novembre-Dicembre 1983 ^ 

te 7.000 - c0 mputet diventa 

oo' di software, e « »v . p ; an0 - 

un'intera tiiarmonica *9d ' aacal . p , 

forte, organovelocemente (e 
imparare a leggere P v # EtoQto 

pe f tare esercito d<na^ s , è e a ctì 

del ' ,islDex * i Suziottano personal 
P u0 Tr it a Apple • Rompiqumdici. 

computer delia Appi» pa mette(e ne 

quindici pedine bianco . tf(scl , ett , del 
giusto ordine • P« cn [assegna de |. 

Sistema Pascal, ec u pei coman d: a 

le possibili onere ^ 0eda | U s ^ viuk ,„ r . „ 

sSssSSS* SSskss® 

stascr-w*"*- sa »»»*»* 4 

ware. 


6 . Marzo-Aprile "'®®?’ a fg per data- 
Tre per te: unl^T^espreadsheet • 
base, wotd-proce^o P cornp ie- 

Anteptimad Apple ma anch e 

to, compatto, c ° mp sat - de • Titoli di 
portatile, obbligazioni, 

stato, c^ ^Sdere i vostri n- 

1! un mostro tira l'altro: riuscì 


l’Apple vi T^ustro Sta ra'lro'. rìuscl- 

vogiocopeivinc^ (ocal - m atealcune 
ria riga per t,9a n “ ma velocemente con 
petti diun P'TTnda puntata del Pa¬ 
ri Linetmdet • Seco u „ un com . 
^.cos'e'uncOTP^-.L^ppie- 
pilatote m t0, S a 1 a Vimpaccamento 
sott pet fTmcupero delle intorma- 




Conce, Hovola 

.2*^Cali1orn»a 
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7 - Maggio-Giugno ^ 

7.000 - ProDosi il nuo s ^ la possl . 

Vivo con nuovi comandi^ gMouse . 

bilita di usare il , pe , realiz- 

Computer e pennello .W'. . 

zare su schernio ap a rlC onoscere i 
Topolino aiuta i barro t: i mpe - 

numeri«Pt°ff^, n So nei vostri 

programmiTt,Sastro i vostri pre¬ 
gio per registrare su # Gtafìca e am . 
grammi piu trrood^ dell' Applesoft 

wswSbr» 

disebi • AIUTO- un P . erron di 

consente di rovare s . insie me. 

battitoia e di corruga 
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Mac. tutte te no mes seggi d er- 
Vegas • Pe,s °" a ® mi . Appliscuol* 
rare dei tuoi PW^™ £ rom i 

una nuova se e T 

studiati pet . te Mans in poi- 

docente univeistar au tomobrti- 

nona.partiate» o. Du edto 
stica piu tam0 . s J r \ rr i V ere con il com- 
sono sufficienti p # y n computer 
puter, maSSVuuccbi delle mi- 

per segretario. realizzarli con il 

gliori segretarie g vostro App' e 

computer • Trasto a ^ e 0 # u struttura 

in un melodioso organ^ ^ coreo di 

dei dati: d ua a ,? de ,i a stampante e 
pascal • La Tjucoptata col computer 

importante: se laccoP a mpeggianll . 

assi»*»**"" 

V Applesoft. 


9. ottobre 1984 ' n VjI □ a r^co n^ret i 
que modem P er “ ^ (c con tro //e: 

'o cali e b an n °unrtosono compatibili ? 

(ino a che purte' son ssate un 

. Grande otterta APP , e //c 0 
intero weekend con u v # Fuoco 

un Macintosh tutt pe m6t . 

tatuo: un adventure ? esperti . 

te atta prova anwe p pe[ pr0 . 

Guida all Ms ‘® a \ Macintosh • Ro' a - 
grammare op n d Jf a S e g e figure pia¬ 
mone e traslazion ara g e \e: se- 

" e esom TL ri APPtecuola» Se¬ 
conda puntata^ APP ombra per vl - 
rarchia, sequenza ^ tQ ap . 

sualizzare il P ate v, a ca | . come 
puntamento con 9 Pa tj nella gra f,- 
ottenere 9 rand r . a ' utilizzando un 
ca ad alta n *®Te^visore a colori • 
^PP' e " e , Un ,tutine per disporre 
Una semplice T a memorizzata • 

sempre detta data ™. ione del , e Pa- 

più tacile la cons v0 , n di- 


h p -iq«4 - Lire T.000- 
^0 - Novembre 19^ cQn ^ p pie 
Una guida pei . internazionali 

ne,le te " ?ori 7 zate^tt ttbto cassa con 

• Computerizzate una gra . 

il Mac • ^^autovetture d'epoca 
duatona tra le aut proles- 

• come gestire \va ^ # 

sionali diverse a rt ìtamente sì 

Niente paura se ina^ un pt0 - 

batte New o rP ■ sem pre i dati 

grammaperrit sembrano 

immagazzinati cn^ puntata dt 

scomparsi . L e man te- 

Appiesoft v inaegii # , n ohe cos a 

nere ^tìsce^all’Applesoft « , 
PammeS, pr°- 

“-'ssssrs 

ta del Pas . C artesiano equazioni dei 

(a:»”'" 1 »* 1 ”* 

ciente dì correlazione. 












■ -(qok . - Lire 7.000 - Un 
16 - Ma f^ base nutrizionale P« 

sistema * data.“ sa nda della propria 
personalizzate.i se abitudini ali- 

costituzione t®ca e a lun g a 0 

mentati, una data ma un m base 
breve scadenza ^ ^y come 

nel corso r p . Pompieri-, 

tarsi un’agenda peron e^ # Un pr0 _ 

un gioco daz '° n rl i ba s(dtmatel’Apple// 

gramma capace d ( # una 

in un fedele e P rec ' 5 ~.,,i arp i niù po- 
tavola di dlse9 ^° d fcAD/CAM • Come 
tenti proarammidi ^compiuto, su 
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comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull’inglese (per chi possiede 
Apple //e e //c), dovreste veder comparire 
sullo schermo il segno "]", chiamato curso¬ 
re, o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Apple- 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa, di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri-inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso); ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all’inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : PRINT 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l’ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SA VE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null’al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple //e o un Ile assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell’ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 

20 e 30. . 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SA VE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po’ più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l’errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LO AD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 


60 














riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l’intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo all’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell’Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As- 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL—151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300:A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 

BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

#$5 

0302: 20 DD FB 5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 

END RTS 



Listato 3 



Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL—151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0 03 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305 :CA Return 
306:F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra ì 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL—C Return per tornare al 
livello BASIC indicato dal segno ’]’. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SA VE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 


dove A$300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del Ile) sia per il ProDOS (sistema opera¬ 
tivo fornito con il Ile). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD, 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l’uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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OverVUE non perde tempo 

Se avete fretta di saperlo, vi serve OverVUE, il database veloce. Vi 
servono i clienti in ordine alfabetico? OverVUE ordina 1000 
record in meno di 2 secondi Volete il riassunto delle pratiche di 
Treviso? Eccolo. Senza inutili attese. 



OverVUE non è solo veloce 




OverVUE è un completo database: fino a 64 colonne, 
larghezza di colonna variabile in qualunque mo¬ 
mento, ricerca e sostituzione di record con le carat¬ 
teristiche scelte, stampe e formato definibile. E tut¬ 
to ad oltre dieci pagine al secondo. 


OverVUE è uno 
di quelli che contano 

OverVUE vi consente di 
raggruppare i dati secondo 
la caratteristica che vi interessa, 
e di eseguire calco li sui dati 
numerici: da semplici conteggi, 
totali e medie fino ad operazioni complesse 
usando le for mule da voi introdotte. 

Il risultato, naturalmente, si può stampare insieme 
coni dati voluti. 

E inoltre, OverVUE può passare dati ai programmi 
Microsoft (Multiplaii, Chart, BASIC) ed a Mac Wri- 


/ 


te. 


OverVUE vi risparmia tempo. E lavoro. 
OverVUE per Macintosh, è disponibile in italiano. 
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L’acquisto di software originale significa: garanzia 
di prodotto, possibilità di sostituzione anche nel 
caso di versioni aggiornate o di versioni naziona¬ 
lizzate. Esigete sempre software originale. 







Fino a ieri il massimo della potenza, a proposito di fogli 
gpy elettronici, era fuori portata per gli Apple //; è ora disponibile, 
invece, Supercalc 3a, il più potente foglio elettronico integrato 
con grafici e data management. 

Come funziona? Quali applicazioni permette? 


Superspreadsheet 


E il programma che ha reso famosa 
la Sorcim/Ius, software house 
americana che con SuperCalc entra 
nel novero dei maggiori produttori di 
software, in concorrenza con quelle 
che sono ormai vere e proprie istitu¬ 
zioni del software: la Lotus, produttri¬ 
ce di 1—2—3, di Symphony e dell’ulti¬ 
mo nato Jazz, Microsoft, ideatrice del 
Basic per Macintosh e ora in fase di 
lancio del suo Excel, e Ashton Tate 
con il D —Base per i personal 
Ms—Dos. 

Il fattore comune che ha fatto arric¬ 
chire queste società è il concetto di un 
programma sul programma: mettere a 
disposizione dell’utente un’applica¬ 
zione che gli permetta di farsi dei pro¬ 
grammi non con un linguaggio di pro¬ 
grammazione edp ma attraverso delle 
funzioni proprie di quell’applicazione. 

Chiaro il riferimento agli spread¬ 
sheet o fogli di calcolo elettronici, ele¬ 
mento essenziale appunto di Super- 
Cale 3a che era, insieme a Lotus 
1-2-3, il più potente foglio elettroni¬ 
co integrato con grafici e data manage- 
ment disponibile sui computer 
Ms—Dos. Ma nel giugno di quest’an¬ 
no la Sorcim/Ius ha finalmente realiz¬ 
zato la versione di SuperCalc 3a per 
Apple //e e Apple //c. 

Non è cosa da poco, soprattutto se si 
tiene conto delle ultime voci che circo¬ 
lano sulla casa della mela: un investi¬ 
mento di questo tipo da parte della 
Sorcim/Ius vuol dire che non sono solo 
a Cupertino a credere ancora nella se¬ 
rie //. 

Il programma 

SuperCalc 3a, basato sul sistema 
operativo ProDos, viene fornito su tre 
dischetti: Program, il disco program¬ 
ma contenente lo spreadsheet e una 


specie di database, Graph, per realiz¬ 
zare fino a nove grafici diversi legati al 
fogìio elettronico e Tools, un disco di 
utility con Sideways, un programmino 
di stampa, Super Data Interchange, 
per trasferire i dati creati con altri 
spreadsheet tipo Appleworks e Visi- 
cale, e Send receive per trasferire i dati 
da e per computer Ibm. Le diverse 
funzioni possono portare a definire 
Supercalc 3a come un programma in¬ 
tegrato, un’applicazione cioè che riu¬ 
nisce in un unico pacchetto più funzio¬ 
ni; tuttavia la caratteristica principale 
è la potenza dello spreadsheet. 

Il manuale, in inglese come il pro¬ 
gramma, è strutturato in diversi capi¬ 
toli per l’apprendimento graduale del 


programma con due tabelle riassunti¬ 
ve (chiamate answer key) delle funzio¬ 
ni e dei grafici. 

• Spreadsheet. Le dimensioni dello 
spreadsheet di SuperCalc 3a sono 254 
righe per 63 colonne, per un totale di 
16.002 celle disponibili. Osservando la 
tabella 1 , salta subito all’occhio che 
rispetto al foglio di calcolo dell’Apple¬ 
works le dimensioni di Supercalc 3a 
sono molto limitate; è però bene ricor¬ 
dare che un Apple 128kb non riuscirà 
mai a sfruttarle. Le funzioni incluse 
nel programma sono 50 e si suddivido¬ 
no in matematiche, logiche, speciali, 
finaziarie e di calendario. 

I comandi vengono richiamati digi- 
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TABELLA 1 


Vediamo ora una tabella comparativa tra i più -famosi -fogli elettronici e SuperCalc 3a. 



Supercalc 

Multiplan 

Visicaì c 
Advance 

App1eworks 

MEMORIA MINIMA 

RICHIESTA 

128K 

48K 

128K 

128K 

DIMENSIONE 

254 x 63 

255 x 63 

254 x 63 

99? x 127 

MEMORIA DISPONIBILE 

CON 128 K 

61K 

35K 

70K 

55K 

COMANDI AL 1° LIVELLO 

22 + AIUTO 

21 

17 + AIUTO 

24 + AIUTO 

COMANDI AL 2“ LIVELLO 

5? 

41 

28 

34 


tando il tasto 7", dopo di che compaio¬ 
no un tot di lettere corrispondenti alla 
funzione che si desidera svolgere. Un 
procedimento che gli esperti di Visi- 
cale conoscono bene. Tra i comandi va 
notato execute, che permette di ese¬ 
guire delle istruzioni macro. Questo 
significa che stabilendo istruzioni e 
formule possiamo, per esempio nel ca¬ 
so di fogli elettronici dove cambiano i 
dati ma le formule rimangono invaria¬ 
te, far eseguire i relativi adattamenti 
direttamente dal programma. 

• Data Management. È una funzio¬ 
ne che permette di trattare il foglio 
elettronico come un data base. A ogni 
riga corrisponde un record che avrà i 
relativi campi nelle colonne. Il pro¬ 
gramma permette di avere 253 record 
e 63 campi per ogni record, uno in 
meno di quante sono le righe e le co¬ 
lonne. Attivando il data management 
diventa così possibile la ricerca dei re¬ 
cord con criteri tipici dei data base e si 
ha la possibilità di trasferire i record 
con criteri da noi selezionati in un’al¬ 
tra area del foglio elettronico. 

• Grafica. SuperCalc 3a può realiz¬ 
zare nove tipi di grafici: linea, area, 
barre, barre impilate, massimo e mini¬ 
mo, X e Y, torta intera, torta a un 
segmento che esplode e torta con 
esplosione di tutti i segmenti. Su un 
monitor a colori è possibile avere fino 
a 15 diverse tonalità e, avendo un plot- 
ter, è possibile stampare in 99 colori 
differenti. La scelta dei testi che ac¬ 
compagnano i grafici può essere fatta 
su otto font differenti. I grafici sono 
legati alle celle di uno spreadsheet da 
noi definite: al variare dei dati dello 
spredsheet varierà anche il grafico re¬ 
lativo. 


TABELLA 2 


Funzioni 

Supercalc 

Multiplan 

Visicalc 
advance 

Appi eworks 

ABS 

X 

X 

X 

x 

ACOS 

X 


X 


AND 

X 

X 

X 


ASIN 

X 


X 


ATAN 

X 

X 

X 


AVERAGE 

X 

X 

X 

X 

CHOOSE 


X 

X 

X 

COLUMN 


X 



COS 

X 

X 

X 


COUNT 

X 

X 

X 

X 

DATE 

X 




DAY 

X 


X 


DELTA 


X 



DOLLAR 


X 



DOTPROD 



X 


DVAL 

X 




ERROR 

X 


X 

X 

EXP 

X 

X 

X 


FALSE 

X 

X 

X 


FIXED 


X 



FV 

X 


X 


IF 

X 

X 

X 

X 

IF...AND 

X 


X 


et: 

o 

LL. 

X 


X 


INDEX 


X 



INT 

X 

X 

X 

X 

IRR 

X 


X 


1 SDATE 

X 




ISERROR 

X 

X 

X 


I SNA 

X 

X 

X 


ISNUM 

X 




ISTEXT 

X 




ITERCNT 


X 



HMS 



X 


HOUR 



X 


•JDATE 

X 
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Applicazione Riclas: analisi di bilancio 

Si chiama Riclas ed è un’applicazione ideata su SuperCalc 3a dallo 
Studio Marasco, Ufficio di revisione dei conti, che permette di rielabora¬ 
re i bilanci secondo schemi idonei all’analisi finanziaria e ottenere auto¬ 
maticamente gli indici di bilancio e il prospetto dei flussi finanziari. 

Riclas è un’applicazione specifica che, grazie alle eccellenti caratteristi¬ 
che di SuperCalc 3a, permette anche all’utente più inesperto di immettere 
un bilancio di verifica e di ottenere una sofisticata analisi di bilancio. 

La principale caratteristica di Riclas è quella di essere una applicazione 
estremamente versatile facilmente adattabile alle esigenze dell’utilizzato- 
re. Infatti può essere utilizzato subito e senza particolari procedure di 
installazione da persone prive di qualunque conoscenza di computer, così 
come può essere adattato alle esigenze personali più sofisticate senza la 
necessità di conoscere alcun linguaggio di programmazione, ma soltanto 
le funzioni di SuperCalc 3a. 

Riclas è disponibile sia per computer con sistema operativo Ms-Dos 
sia per i computer Apple //e e Apple He e costa, nella versione per Apple, 
300 mila lire (più ovviamente il costo di Supercalc 3a). Per ulteriori 
informazioni e documentazione è possibile telefonare allo Studio Dottor 
Marasco di Milano, Via Andegari 18, telefono 02 875614-877023. 


Funzioni 

Supercalc 

Mu1tip1an 

Risicale 

advance 

Appieworks 

LABEL 



X 


LCH00SE x 

LEN 


X 



LN 

X 

X 

X 


L0G1G 

X 

X 

X 


L00KUP 

X 

X 

X 

X 

MAX 

X 

X 

X 

X 

MDAY 



X 


MIO 


X 



MIN 

X 

X 

X 

X 

MINUTE 



X 


MOD 

X 

X 

X 


MQNTH 

X 


X 


NA 

X 

X 

X 

X 

NPV 

X 

X 

X 

X 

OR 

X 

X 

X 


PI 

X 

X 

X 


PMT 

X 


X 


P'v> 

X 


X 


RANDOM 

X 




RATE 



X 


REPT 


X 



ROUND 

X 

X 

X 


ROLI 


X 



SECOND 



X 


SIN 

X 

X 

X 


SQRT 

X 

X 

X 

X 

STDEU 


X 



Silfi 

X 

X 

X 

X 

TAN 

X 

X 

X 


TODAY 

X 




TRUE 

X 

X 

X 


VALUE 



X 

* 

UMDY 



X 


WDAY 

X 




YEAR 

X 


X 



I COMANDI 

I comandi vengono richiamati digi¬ 
tando il tasto 7", dopo di che compaiono 
le lettere corrispondenti alla funzione 
che si desidera svolgere. Le funzioni so¬ 
no: 

A (arrange) ordina le righe di una co¬ 
lonna in ordine numerico o alfabeti¬ 
co. 

B (blank) pulisce il contenuto di una o 
più celle, righe o colonne. 

C (copy) copia una o più celle offren¬ 
do la possibilità di modificare o la¬ 
sciare inalterato il loro contenuto. 
D (delete) cancella una o più righe o 
colonne. 

E (edit) permette la correzione del 
contenuto di una cella. 

F (format) stabilisce il layout di una o 
più celle, righe, colonne; tra le tante 
opzioni è molto utile la possibilità di 
allargare le colonne da 0 a 127 carat¬ 
teri e di nascondere il contenuto del¬ 
le celle. 

G (global) stabilisce alcune opzioni va¬ 
lide per tutto il foglio elettronico. 
Alcune di esse sono la scelta di come 
e quando ricalcolare, la tabulazione 
eccetera. Questo comando è molto 
importante per i grafici in quanto 
permette di scegliere le dimensioni 
di stampa, i colori, i caratteri per i 
titoli del grafico. 

I (insert) inserisce una o più righe o 
colonne. 

L (load) carica i fogli elettronici, o 
parte di essi, precedentemente rea¬ 
lizzati e salvati. 

M (move) sposta una o più righe o co¬ 
lonne. 

O (output) determina i parametri di 
stampa per la stampante, offre la 
possibilità di scegliere se stampare 
tutto il foglio elettronico o parte di 
esso. 

P (protect) protegge una o più celle. 
Q (quit) per terminare e passare a un 
altro programma. 

S (save) per salvare, tutto o in parte, il 
foglio elettronico. 

T (title) per bloccare una parte del fo¬ 
glio elettronico e utilizzarla come ti¬ 
tolo. 

U (unprotect) per togliere la protezio¬ 
ne a una o più celle. 

V (view) per decidere quale tipo di 
grafico utilizzare e per stabilire quali 
celle dovranno fornire i dati dell’as¬ 
se delle X, dell’asse delle Y e dei 
titoli. 

X (execute) esegue le istruzioni ma- 
cro. 

Z (zap) pulisce tutto il foglio elettroni¬ 
co. 

/ (data management) permette di 
trattare il foglio elettronico come un 
data base. 
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TABELLA 3 

Questa tabella mostra quali 
diversi comandi dei quattro 

tasti è necessario battere per 
programmi : 

eseguire i 


Funzioni 

Supercalc Muì tipian 

Visicalc 
Advance 

Appi eworks 
itali ano 

ORDINARE 

/A 

S0RT 


MELA 

0 

PULIRE CELLE 

/B 

BLANK 

/B 

MELA 

B 

COPIARE 

/C 

COPY 

/R 

MELA 

D 

CANCELLARE 

/D 

DELETE 

,/D e /0 

MELA 

E 

EDITARE 

/E 

EDIT 

/E 

MELA 

U 

LAYOUT 

/F 

FORMAT 

/A e /F 

MELA 

L 

GLOBALE 

/G 

F0RMAT/0PTI0NS 

/G 

MELA 

V 

INSERIRE 

/I 

INSERT 

/I 

MELA 

I 

CARICARE 

/L 

TRANSFER 

/O 



MUOVERE 

/M 

MOVE 

/M 

MELA 

M 

OUTPUT 

/Q 

PRINT 

/P e /0 

MELA 

S 

PROTEGGERE 

/P 

L0CK 

/ A 

MELA 

V 

FINIRE 

/G 

QUIT 

/o 



REPLICARE 

/R 

COPY 

/R 

MELA 

D 

SALVARE 

/S 

TRANSFERT/EXTERNAL 

/O 

MELA 

A 

TITOLI 

/T 

ALPHA 

/T 

MELA 

T 

SP0TEGGERE 

/U 

L0CK 

/A 

MELA 

V 

GRAFICI 

/V 





FINESTRA 

AA 

WIND0W 

AA 

MELA 

F 

MACR0 ISTRUZIONE 

./X 


/K 



PULIRE TUTTO 

n 

BLANK 

/C 

MELA 

B 

DATA MANAGEMENT 

// 





SALTARE 

GLOBAL 


> 

MELA 

J 

RI CALCOLO 

1 

1 

! 

MELA 

K 

AIUTO 

? 

HELP 

? 

MELA 

? 

SALTA A UNA CELLA 

= 

GOTO 

> 

MELA 

C 

INTRODUZIONE LABEL 


ALPHA 




NOMINARE UNA CELLA 


NAME 






• Tool kit. È il disco che contiene le 
tre utility accennate all’inizio. Il Side- 
ways permette la completa gestione 
delle stampe del foglio elettronico per¬ 
mettendo, tra le altre normali funzioni 
come la marginatura, l’interlinea o il 
carattere per pollici, la stampa in oriz¬ 
zontale dei dati dello spreadsheet. Su¬ 
per Data Interchange, invece, è stato 
creato per chi intende passare da Visi- 
cale o Apple works a Super cale 3 a sen¬ 
za perdere maschere precedentemen¬ 
te definite con gli altri due spread¬ 
sheet. Mentre Send Receive è il dialo¬ 
go con Ibm, macchina per la quale era 
stata creata la prima versione di Su- 
percalc. 


Chi lo userà 

SuperCalc 3a apre nuovi orizzonti 
alle applicazioni più complesse; anali¬ 
si, proiezioni, previsioni di carattere 
matematico, statistico, economico e 
finanziario. È un programma rivolto a 
chi vuole sfruttare nel migliore dei mo¬ 
di il foglio elettronico, la più versatile 
applicazione per personal computer. 

Il manuale, in inglese, è strutturato 
in diversi capitoli per l’apprendimento 
graduale del programma, e vengono 
inoltre fornite due tabelle (le Answer 
key) per le funzioni e per i grafici. 

Una particolare attenzione va pre¬ 


stata all’uso di SuperCalc 3a con il 
nuovo Uni disk, il drive esterno per 
Apple // con dischetti a 3,5 pollici; i 
risultati sono eccezionali in quanto su 
di un unico disco può essere caricato 
tutto il programma ("Program", 
"Graph" e "Tools"), che grazie al siste¬ 
ma ProDos permette di saltare da 
un’applicazione all’altra con grandissi¬ 
ma velocità. 

L’ultima piacevole sorpresa è il 
prezzo: 390.000 lire più Iva. Il distri¬ 
butore esclusivo per l’Italia è l’Editri¬ 
ce Italiana Software, via Fieno 8, Mi¬ 
lano, telefono 02 875250. 

Giuseppe Durazzano 
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A CASA TUA 



La MT/80+ e la PC dispongono di 
interfacciamento parallelo e seriale che permette 
di connettere questi prodotti a qualsiasi Micro o PC. 
Per la stampa a basso costo, le stampanti della 
famiglia MT/80 sono perfette, rispondendo ad 
ogni tua necessità di stampa. 

La velocità di stampa é a 100 o 130 cps. con una 
matrice estremamente chiara e pertanto ideale 
per stampare i tuoi listati, le tue lettere ecc. 

Le stampanti della famiglia MT/80 
oltre che trascinare la carta con 
trattori di spinta consentono 
anche, per mezzo della frizione, di 
inserire il foglio singolo. 

Le MT/80 sono belle a vedersi, 
facili da usare, non richiedono 
manutenzione preventiva, 
silenziose ed in più la versione 80 
PC é completamente 
compatibile con il tuo PC IBM. 

y uei n. i j 





Tutte . 
le garanzie 




MANNESMANN 

TALLY 


20094 Corsico (MI) - Via Cadamosto, 3 
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00137 Roma - Via I. Del Lungo, 42 - Tel. (06) 8278458 
10099 San Mauro (TO) - Vìa Casale, 308 - Tel, (011) 8225171 
40050 Monteveglio (BO) - Via Einstein, 5 - Tel, (051) 832508 
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Rampollo di nobile famiglia (è nato in casa Bell 
Laboratories, uno dei sancta sanctorum della moderna 
tecnologia) ha tratti inconfondibili: un sistema operativo 
interattivo, multitask, essenziale e potente. Il primo 
sistema pensato per chi deve lavorarci, piuttosto che per i 
programmi che deve eseguire: l’antesignano, insomma, 
di quegli strumenti “a misura d’uomo” progettati per 
diffondere su ampia scala l’informatica. E c’è riuscito, 
avvalorato dal fatto che le sue caratteristiche 
fondamentali datano quindici anni. 


Un paradigma 
per il Mac 


S ebbene fiumi di parole siano stati 
spesi sull’argomento, è doverosa 
una presentazione di Unix perché il 
recente connubio con Mac la impone. 

Per procedere con ordine, anzitutto 
un po’ di storia. Ken Thompson (arte¬ 
fice primario nel 1969 della prima ver¬ 
sione per PDP-7 e PDP-9, minicompu¬ 
ter Digital) e Dennis Ritchie (che con 
Brian Kernigham ha sviluppato appo¬ 
sta il linguaggio di programmazione 
C) concludono nel 1973 la versione per 
PDP-11, scritta praticamente intera¬ 
mente in linguaggio C, che continuerà 
a essere potenziata di strumenti (pac¬ 
chetti) per scopi differenziati. 


La storica “versione 7” comincia a 
essere distribuita anche all’esterno 
della Western (la manifattura dei Bell 
Labs, ora del gruppo AT&T): in parti¬ 
colare, approda all’Università di Ber¬ 
keley (California) dove nasce il secon¬ 
do “filone” di versioni Unix. Qui, il 
timone è retto da William (Bill, per gli 
amici) Joy; sfocerà nella “versione 
4.1”, prima con meccanismi di memo¬ 
ria virtuale (il programma può essere 
di dimensioni superiori di quelle della 
memoria RAM effettiva, e il sistema 
operativo pensa a caricare/scaricare le 
pagine in cui il programma è stato sud¬ 
diviso senza che il programmatore 


debba compiere segmentazioni espli¬ 
cite), per VAX-11/750 (un supermini 
della Digital, dove “super” sta a indi¬ 
care che la cpu è a 32 bit piuttosto dei 
16 tipici dei mini). 

Successivamente, sia pure in modo 
travagliato, viene realizzata la “versio¬ 
ne 4.2”, un esempio interessante di 
sistema operativo di rete (cioè diversi 
computer tra loro collegati, in cui ogni 
terminale può utilizzarne uno a scelta. 
Attualmente, quindi, due “filoni” di 
versioni “ufficiali”: quello AT&T (con 
le versioni System V cui segue System 
VII), e quello Berkeley (versioni 4.1 e 
4.2). Per consentire una completa tra¬ 
sportabilità delle applicazioni, è stata 
definita la SINLIB (System INdepen- 
dent LIBrary): una libreria di utility e 
system-call presente su entrambi i 
filoni. 

Ma di Unix (scopiazzati con nome 
diverso per non pagare i diritti alla 
AT&T) ce ne sono in circolazione 
molti; a questo punto, Unix è disponi¬ 
bile per i più diversi computer, a parti¬ 
re dai microprocessori fino ai mainfra¬ 
me. Fattore determinante per il suc¬ 
cesso di queste migrazioni è stata pro¬ 
prio la scrittura del sistema in linguag¬ 
gio C: nella versione 7, per esempio, il 
nucleo del sistema è di 10.000 istruzio¬ 
ni C e solo un migliaio in linguaggio 
assembly. Significa che per portare 
Unix su un computer diverso è suffi¬ 
ciente portare il compilatore del lin¬ 
guaggio C (con le sue librerie) e riscri¬ 
vere il migliaio di istruzioni in assem¬ 
bly. Un costo, credete, decisamente 
vantaggioso. 



Le finestre sullo schermo corrispondono a posizioni nel file System di 
una macchina UNIX. 
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Come un processo 

Conoscere Unix è facile: sedendo¬ 
si al terminale con l’opportuno tutore 
(un articolo di poche pagine), e se¬ 
guendone le indicazioni, in qualche 
ora si apprendono i “fondamentali”, 
cioè si è in grado di utilizzare il siste¬ 
ma. Per introdursi all’uso dei più vari 
command (alias pacchetti e/o coman¬ 
di) è richiamabile da terminale tutta la 
serie dei “man” (alias manuali). Gli 
addetti ai lavori usano definire Unix 
un sistema “a bassa soglia di ingresso”. 
Una introduzione non di dettaglio può 
essere fatta (a scapito di qualche 
aspetto) mettendosi nell’ottica di “co¬ 
sa vede e/o può fare l’utente”. 

Già l’inizio è una novità: un utente è 
un processo (!?). Se, in modo appros¬ 
simato ma sufficiente, si intenda per 
processo un programma in esecuzione 
con i propri dati, allora Unix vede un 
utente (umano con il suo terminale) 
proprio come un processo non diverso 
(come possibilità operative) da un 
qualsiasi programma in esecuzione. È 
un processo che usa come dati, alme¬ 
no, quelli in arrivo da tastiera e produ¬ 


ce quelli verso video. Sono processi, 
quando in esecuzione, anche i com¬ 
mand (in terminologia Unix, alias uti¬ 
lity o pacchetti a disposizione dell’u¬ 
tente). Questo processo (d’ora in poi 
sinonimo, quindi, di programma o 
utente di terminale) può lanciare (sce¬ 
gliendo se attendere il completamento 
oppure no) altri processi, e così via. A 
ogni istante, quindi, nel sistema è “vi¬ 
vo” un albero gerarchico di processi 
(la radice è il processo che inizializza il 
sistema al boot; un primo livello di 
nodi è costituito dai processi di gestio¬ 
ne dei terminali; a ognuno di questi 
sono collegati i processi che hanno at¬ 
tivato; e così via). 

Il meccanismo fondamentale di co¬ 
municazione tra processi (fratelli, per 
completezza) è stato chiamato “pipe”. 
Altro non è che un file (che quando 
possibile risiede in memoria RAM) su 
cui un processo scrive dati per un altro 
processo che li attende; è di sistema 
operativo che si occupa della sincro¬ 
nizzazione delle scritture/letture. 

Altra caratteristica originale di 
Unix è il modo in cui presenta i file su 
memoria di massa. Senza doversi inte¬ 


ressare necessariamente di quante e 
quali unità a disco siano fisicamente 
presenti, un processo vede i file orga¬ 
nizzati in un unico (eccolo che ritorna) 
albero gerarchico: ogni nodo dell’al¬ 
bero è un directory (alias folder per 
Mac), che può contenere (liberamen¬ 
te) ulteriori directory o foglie (file or¬ 
dinari di informazioni). 

Altrettanto semplice è l’organizza¬ 
zione interna di un file, che è visto dal 
sistema come una sequenza di byte; 
eventuali strutturazioni in record sono 
conosciute solo dai processi che li usa¬ 
no. Per Unix anche i dispositivi di i/o 
sono dei semplici file: identici a quelli 
di un file ordinario sono i modi e i 
privilegi di accesso (lettura, scrittura, 
ecc.). 

Questa standardizzazione (all’inter¬ 
no del sistema vengono letti e scritti 
solo byte) consente di estendere anche 
ai dispositivi di i/o un altro meccani¬ 
smo proprio di Unix: la redirezione 
(dell’input e dell’output). Un processo 
che legga da tastiera i dati, senza subi¬ 
re nessuna modifica, può essere (al¬ 
l’atto dell’attivazione per l’esecuzio¬ 
ne) rediretto (in input) a leggere quei 
dati da un file (nel quale, per esempio, 
erano stati predisposti con l’editor); 
allo stesso modo, un processo che nor¬ 
malmente produce dati per il video, 
può essere eseguito redirigendone 
l’output verso stampante. 

I molti command 

Questi, sia pure per cenni, gli 
aspetti innovativi del kernel, il nucleo 
base, di Unix. Sotto lo stesso nome (e 
nell’unico nastro di distribuzione) tro¬ 
va posto una marea di command per le 
più svariate applicazioni. Tra questi, 
inaspettatamente, il primo è l’inter¬ 
prete dei comandi di utente, chiamato 
“shell” (conchiglia, perché nasconde 
all’utente i dettagli della perla, cioè il 
kernel). Inaspettatamente, in quanto 
di solito accade che il job-control lan- 
guage (linguaggio di controllo, alias 
comandi d’utente) è interpretato da 
una parte di programmi che formano 
un tutt’uno con il sistema operativo. 
Un risvolto positivo è che, senza dover 
mettere mano al kernel (supposto di 
poterlo fare), possono essere costruite 
shell “ritagliate” e/o “personalizzate” 
sulle esigenze di utenti particolari. La 
shell offre all’utente un vero e proprio 
linguaggio di programmazione; pos¬ 
siede variabili (di tipo intero, stringa e 
array) e strutture di controllo (ifthen- 
else, case, eccetera): questa prestazio¬ 
ne favorisce la prototipazione rapida 
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Il set dei comandi configurati nei moduli operativi di ICS può essere 
opportunamente esteso o modificato. 


di programmi (cioè scrittura veloce 
per la valutazione dei requisiti, anche 
se le esecuzioni sono poco efficienti), 
che verranno tradotti in linguaggio di 
programmazione compilato quando 
consolidati come specifiche. 

Tra i diversi command sono com¬ 
presi compilatori di diversi linguaggi, 
debugger simbolici, pacchetti di co¬ 
municazione, posta elettronica, editor 
(a linee e full screen), generatori di 
parser, data base, gestori di versioni di 
testi, “costruttori di eseguibili”, ma 
anche pacchetti realizzati in proprio, 
da privati o case costruttrici, facendo 
evolvere grandemente il sistema stes¬ 
so. Addirittura sono sorte diverse as¬ 
sociazioni di utenti (user group) con lo 
scopo di mantenersi aggiornati e scam¬ 
biarsi applicazioni. 

Gli utenti, anche in Italia, sono i più 
disparati. Sicuramente le Università 
(in particolare, ma non solo, le facoltà 
di scienza dell’informazione, tra cui 
quella di Milano), a testimonianza del¬ 
l’alto grado di didattica che Unix of¬ 
fre. Ancora, centri di ricerca: come 
esempio, alcuni sottoprogetti dei Pro¬ 
getti Finalizzati per l’Informatica del 
Consiglio Nazionale delle Ricerche 
hanno adottato Unix come sistema di 
sviluppo standard. E anche industrie, 
per esempio nel campo delle teleco¬ 
municazioni o di sviluppo di sistemi. 
Da ultimi, cronologicamente, alcuni 
Istituti bancari. 

È un fatto culturale: “small is beau¬ 
tiful”, slogan principe di Unix, ha dato 
scacco ancora una volta ai gigantismi. 
Ha proposto con successo pochi e sem¬ 
plici concetti cooperanti come risposta 
adeguata a un problema reale (e costo¬ 
so) come quello dello sviluppo e della 
gestione di “infoware”. 


Un mainframe 
nel personal 

Il nome (MacDICS) è difficile a 
pronunciarsi; l’acrostico, Distributed 
ICon Shell per l’integrazione di siste¬ 
mi Unix e Macintosh, è forse un po’ 
misterioso: però l’idea è interessante e 
da capire, magari, per poterla applica¬ 
re in altre situazioni. Supponete di 
avere a che fare con un sistema infor¬ 
matico già avanzato; per intenderci, 
una organizzazione che si avvale sia di 
un sistema elaborativo centrale (per lo 
svolgimento di funzioni che necessita¬ 
no di memoria di massa e di tempo di 
elaborazione massivi), sia, a lato, di 
personal computer per altre funziona¬ 
lità locali (elaborazione di testi, foglio 
elettronico, e anche applicazioni spe¬ 
cifiche) . 

Normalmente, dopo un po’, ci si ac¬ 
corge dell’utilità (e/o necessità) di con¬ 
nettere i due mondi: per ottenere nuo¬ 
ve funzioni (per esempio posta elettro¬ 
nica su ampia scala), o per migliorare 
le esistenti (per esempio, reperimento 
da un unico archivio clienti dell’indi¬ 
rizzario per una comunicazione; oppu¬ 
re, estrapolazione degli approvvigio¬ 
namenti sulla base dell’andamento del 
magazzino, con il comodo foglio elet¬ 
tronico; oppure altro, e tanto, 
ancora). 

Una soluzione semplice è quella di 
utilizzare su personal un pacchetto che 
emuli un terminale del sistema centra¬ 
le: peccato che voglia dire, come con¬ 
seguenza, imparare anche il linguag¬ 
gio di controllo del sistema centrale 
(troppo spesso, ancora, non “frien- 
dly”). 

MacDICS interviene risolvendo il 


problema: consente, infatti, di utiliz¬ 
zare (nel senso di navigare tra i folder 
e file, e di eseguire applicazioni e co¬ 
mandi) il sistema centrale con le mo¬ 
dalità di interazione di Mac (window- 
icon-menù mouse control). Simpati¬ 
co, no? 

La cosa, di primo acchito, ed è giu¬ 
sto che sia così perché risponde in mo¬ 
do tecnologicamente maturo a una esi¬ 
genza che si va rapidamente diffon¬ 
dendo, attrae; distinguendo tra idea e 
realizzazione, è necessario un nota be¬ 
ne in merito a quest’ultima. I progetti¬ 
sti della ’list’ (la società che ha realiz¬ 
zato MacDICS) hanno ritenuto prefe¬ 
ribile, come nella loro tradizione, pri¬ 
vilegiare aspetti innovativi (Macinto¬ 
sh/Unix); il mercato, per converso, ha 
tradito un po’ le previsioni di diffusio¬ 
ne di Unix (almeno secondo i consun¬ 
tivi di Business Week del 1-4-85): an¬ 
cora una volta sono stati “sacrificati” 
strumenti significativamente qualitati¬ 
vi in nome, purtroppo, di paure ance¬ 
strali. 

Seguirà un incontro tentativamente 
ravvicinato con l’oggetto in causa, gui¬ 
dati anche dalla relativa documenta¬ 
zione tecnica che apre affermando 
“MacDICS è uno strumento di collo¬ 
quio per un sistema distribuito che 
ospita uno o più sistemi Unix e un 
insieme di personal computer Apple 
Macintosh”. 

Funzionalità 

MacDICS gestisce un file System 
virtuale unificato, costituito da un al¬ 
bero gerarchico composto da una radi¬ 
ce (virtuale) che ha come sottoalberi 
figli i file System delle singole macchi¬ 
ne (Unix o Mac). Ogni oggetto (file, 
directory/folder) ha un nome (pattina¬ 
rne) esteso, formato dal suo nome en¬ 
tro il file System della macchina cui 
appartiene aggiungendovi un prefisso 
che, indicando il nome di questa, lo 
rende univoco tra tutte le macchine. 

I nodi del file System sono gestiti 
come oggetti aventi tipo: gli oggetti di 
Macintosh hanno già nell’ambiente 
nativo un tipo determinato dallo stru¬ 
mento che lo ha generato; anche gli 
oggetti Unix vengono classificati per 
tipo (documenti testo, documenti con 
comandi di composizione, programmi 
sorgenti C, programmi oggetto, ese¬ 
guibili, directory, ecc.) e su ogni tipo 
di oggetto è applicabile in generale un 
insieme di strumenti specifico. Sono 
gestiti due oggetti di tipo speciale: il 
’clipboard’ e il ’cestino’; questi sono 
unici per ogni utente; creati la prima 
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TAB per avere il menu ENTER per selezionare 

/product/ics/Work 

{} vuoto programma c programmas programma o documento 

doc roff tgpe h ICS* screeno 

| cc compilatore C | 

-c sopprime la fase di caricamento VERO 

-g produce la sumbol table per DBX FALSO 

-go produce la Symbol table per SDB FALSO 

-v sopprime 1 varnings nella diagnostica FALSO 

-p profile FALSO 

- pg profi le con gprof FALSO 

-0 ottimizza il codice prodotto VERO 

-o assegna un nome al file prodotto prova 

-D definisce il nome per preprocessor 

- U rimuove la definizione del nome per il preprocessor 
-I directory dove ricercare i file di include /include 

argomenti screenc 


Il sistema di editing LEM è estremamente chiaro, e si rivolge all’utente 
UNIX come strumento molto flessibile e di immediato apprendimento. 


CSOURCE 


edita 

esamina 

indenta 

wnm 

verifica 


volta che un utente accede al sistema, 
hanno speciali diritti di accesso, sono 
permanenti, possono contenere più 
oggetti e di tipo qualunque. 

Sugli oggetti del file System sono ap¬ 
plicabili: operazioni generali (correla¬ 
te alla struttura del file System e non al 
contenuto dell’oggetto), operazioni 
specifiche (dipendenti dal contenuto 
dell’oggetto), oltre a tutte le operazio¬ 
ni native dei sistemi ospiti. Tra le pri¬ 
me, come esemplificazione: naviga¬ 
zione nel file System, ricerca di ogget¬ 
ti, spostamento e/o copia, creazione di 
directory e/o file tipati. Le operazioni 
specifiche, per un oggetto contenente 
il sorgente di un programma in lin¬ 
guaggio C: edita, compila, verifica, 
esamina, indenta. 

Modalità operative 

Quella base è, ovviamente, “stile 
Macintosh”; in questo caso, nulla di 
nuovo per un utente Mac salvo il tro¬ 
varsi davanti a un file System ampio; 
come nota interessante (anche se atte¬ 
sa) il fatto che l’operazione ’sposta’ un 
oggetto da una macchina all’altra, av¬ 
viene semplicemente “trascinando”, 
tra le due finestre del caso, l’oggetto 
per mezzo del mouse. Integrativa del¬ 
la precedente, necessaria quando si in¬ 
tende trattare alla Mac gli oggetti e le 
operazioni di Unix (tipicamente più 
flessibili e per questo più ricchi di op¬ 
zioni), è la modalità ’query by form’; 
(richiesta per questionario). Una volta 
selezionata un’operazione per un dato 
oggetto, la ’form’ appare sullo scher¬ 
mo parzialmente compilata per le op¬ 
zioni di “default” o di uso più frequen¬ 
te e l’utente ne può completare i cam¬ 


pi. Infine, la modalità shell-Unix altro 
non è che la normale shell di Unix 
(comandi a stringhe di caratteri) a di¬ 
sposizione in una finestra del Mac. 

Architettura 

MacDICS opera su una architettu¬ 
ra distribuita da elaboratori, connessi 
via LAN o via linea seriale. In que¬ 
st’ultimo caso, ogni personal è collega¬ 
to punto-punto all’elaboratore Unix 
che sta, così, al centro della stella. Nel¬ 
l’altro, una stazione Mac può connet¬ 
tersi dinamicamente ad uno o più ela¬ 
boratori Unix. In entrambe, allora, gli 
elaboratori Unix forniscono servizi 
(server) alle macchine Macintosh che 
li utilizzano (client). Similmente a 
quest’ultima definizione, il software di 
MacDICS è costituito da due compo¬ 
nenti: ’server’, presente su ogni Unix 
(è un processo ’deamon’ che assolve 
alle richieste che transitano sulle vie di 
collegamento); ’client’, sui Mac, è il 
processo che guida le richieste ai ser¬ 
ver (l’insieme dei comandi configurati 
per ogni tipo di oggetto è ampliabile e 
modificabile). MacDICS è scritto inte¬ 
ramente in linguaggio C, e disponibile 
per Unix versioni 4.1,4.2 e System V. 

Ancora dalla ’list’: “I sistemi Unix e 
Macintosh presentano aspetti che of¬ 
frono funzionalità complementari. 
MacDICS, tendendo a evidenziare i 
caratteri positivi dei due e a superarne 
le debolezze, realizza un ’sistema tipo’ 
dal quale derivare, per semplice spe¬ 
cializzazione e/o attraverso ulteriori 
sviluppi, potenti sistemi applicativi di¬ 
stribuiti”. 

Daniele Scrignaro 



73 




















































Il fatto che il Basic sia un linguaggio facile non implica che 
ci si debba limitare a programmi semplici e banali. Se 
avete qualche ambizione potrete benissimo cimentarvi in 
avventure di programmazione avanzata, stando però 
molto attenti a valutare a priori la fattibilità dell’idea... 


Senza inganno, ma 
col trucco 


L a prima cosa a cui si deve prestare 
attenzione nel concepimento di un 
programma è la disponibilità di risorse 
del computer: una stima della memo¬ 
ria richiesta dal programma e dei tem¬ 
pi di esecuzione. Spesso le difficoltà 
che si incontrano neH’implementare 
un programma non sono dovute alla 
complessità dell’algoritmo, ma al fatto 
che non si è in grado di organizzare 
bene le informazioni in memoria, rag¬ 
giungendo così limiti fatali di disotti¬ 
mizzazione. 

Quelle che tratteremo qui sono tec¬ 
niche di programmazione avanzata 
studiate negli anni Sessanta nelle uni¬ 
versità americane ed europee nell’am¬ 
bito del cosiddetto software di base, 
cioè il software interno del calcolatore 
che serve per poter eseguire il softwa¬ 
re applicativo. 

In questa prima puntata, tre fonda- 
mentali strutture di dati (stack, code e 
liste), che verranno poi utilizzate nelle 
prossime puntate come punto di par¬ 
tenza per l’ottimizzazione della me¬ 
moria e dei tempi di esecuzione. 

Stack 

La parola inglese “stack” significa 
catasta, pila, mucchio ordinato di og¬ 
getti uno sopra l’altro. Esempi di stack 
nella vita di tutti i giorni possono esse¬ 
re: una catasta di legna, una pila di 
piatti in un ristorante, un sacco per la 
biancheria sporca... 

Che cos’hanno in comune questi og¬ 


getti? In cosa differiscono da un bana¬ 
lissimo insieme di elementi? La carat¬ 
teristica che li accomuna è la modalità 
con cui si possono inserire o estrarre 
gli elementi: soltanto l’elemento più in 
alto è accessibile, cioè l’ultimo inseri¬ 
to. Immaginate una pila di piatti in un 
ristorante: vi azzardereste a prendere 
un piatto che si trovi a metà? Senz’al¬ 
tro è più salutare prendere il piatto più 
in alto. Immaginate ora che arrivi il 
cuoco e che aggiunga una decina di 
piatti appena sfornati dalla lavastovi¬ 
glie; a questo punto, i primi piatti che 
si potranno estrarre saranno proprio 
quelli appena inseriti dal cuoco. 

Generalizzando, i primi elementi 
estraibili da uno stack sono gli ultimi 
inseriti e, analogamente, gli ultimi 


estraibili sono i primi inseriti. Questa 
strategia di accesso a un insieme di 
oggetti si chiama LIFO, “Last In First 
Out”, cioè “l’ultimo entrato è il primo 
a uscire”. 

Veniamo ora al tecnico e cerchiamo 
di implementare nella memoria di un 
calcolatore una struttura di dati dove il 
primo dato disponibile (cioè leggibile) 
sia l’ultimo inserito, cioè l’ultimo 
scritto. 

In figura 1 vediamo uno stack rap¬ 
presentano come un insieme di varia¬ 
bili una sull’altra, in cui l’ultima varia¬ 
bile inserita è quella più in alto. Per 
realizzare in Basic uno stack, ci trovia¬ 
mo di fronte a un problema: come fa¬ 
remo a realizzare delle variabili che 
possono essere allocate o deallocate a 


IT 


inserimento estrazione 


ultimo dato inserito (primo accessibile) 


primo dato inserito (ultimo accessibile) 


Figura 1. Rappresentazione di uno stack in memoria. 
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piacere? Il problema è quello di dover 
creare e distruggere variabili in memo¬ 
ria, ma il Basic non ha istruzioni che lo 
permettono. 

La cosa migliore è quella di preallo¬ 
care un’area di memoria fissa sovradi¬ 
mensionata, dove poter inserire o 
estrarre a piacere i dati: si tratterà, 
dunque, di un array che chiameremo 
M, cioè memoria. Per comodità, con¬ 
sideriamo solo elementi di tipo strin¬ 
ga: implementeremo uno “stack di 
stringa” utilizzando un array di strin¬ 
ghe M$, come si vede in figura 2. 

La definizione dello stack di strin¬ 
ghe sarà dunque: 

T0 MX - 10 sREH DIMENS. MAX 

20 Din MKMX) :REM MEMORY 
30 TS - -1 :REM TOP OF STACK 


Veniamo ora alle modalità di acces¬ 
so: per impedire accessi erronei, cioè a 
elementi intermedi, è necessario defi¬ 
nire degli “operatori di accesso” che 
agiscono solo sull’elemento più in alto 
(puntato da TS). In gergo tecnico, si 
chiamerà “push” (spingi) l’operatore 
che inserisce un nuovo elemento (una 
stringa) nello stack e “pop” (butta fuo¬ 
ri) quello che estrae l’ultimo elemento 
inserito. Tali operatori vengono rea¬ 
lizzati in Basic mediante apposite su¬ 
broutine: 

T00 REM--- 

110 REM PUSH (INSERISCI PII) 

120 IF TS >- MX THEN 160 
130 TS - TS+1 
140 MI(TS) - PII 
1S0 RETURN 


1G0 PRINT "STACK PIENO" 

170 RETURN 

200 REM - 

210 REM POP (ESTRAI E METTI 
IN PII) 

220 IF TS < 0 THEN 260 
230 PII - MI(TS) 

240 TS - TS-1 
2S0 RETURN 

2G0 PRINT "STACK VUOTO" 

270 RETURN 


Osservate che tali subroutine lavo¬ 
rano sul parametro Pl$ e agiscono 
esclusivamente in cima allo stack, co¬ 
me si può notare nelle linee 140 e 230 
dove compare M$(TS). La variabile 
TS contiene sempre l’indice dell’ulti¬ 
mo elemento inserito e viene apposita¬ 
mente aggiornata alle linee 130 e 240. 
Per inserire un elemento nello stack si 
dovrà dunque scrivere: 


PII - "ABCD" 

GOSUB 100 :REM PUSH "ABCD" 


e analogamente, per estrarre un ele¬ 
mento e metterlo nella variabile A$ si 
dovrà scrivere: 


GOSUB 200 

Al - PII ;REM POP Al 


È fondamentale tenere presente che 
gli accessi allo stack devono essere ef¬ 
fettuati solo mediante richiami a que¬ 
ste due subroutine, evitando di acce¬ 
dere direttamente all’array con istru¬ 
zioni del tipo: 


MI(5) - "ABCD" 


che equivarrebbe a prendere un piatto 
e tentare di inserirlo nel mezzo della 
pila di piatti del ristorante. 

Se volessimo far stampare il conte¬ 
nuto dello stack (giusto per vedere co¬ 
sa contiene), potremmo definire un ul¬ 
teriore “operatore di accesso”, che po¬ 
tremmo chiamare “VIEW”: 


300 REM--- 

310 REM VI EU (STAMPA IL CON¬ 
TENUTO DELLO STACK) 
320 FOR I - MX TO 0 STEP -1 
330 PRINT MI(I) 

340 NEXT I 
3S0 RETURN 


Volete vedere se questo stack fun¬ 
ziona? Costruite un programmino che 
permetta di fare interattivamente de¬ 
gli inserimenti ed estrazioni dallo 
stack. 


40 GOTO 1000 

1000 PRINT "P-PUSH, O-POP," 

1001 PRINT "V-VIEU, E-EXIT" 


array MS 


MX (Memory max, dimensione massima dell array) 


TS (Top of Stack, indice dell'ultima 
stringa inserita) 


2 

1 

0 


Figura 2. Implementazione di uno stack di stringhe utilizzando un array. 
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inserimento 


i 


ultimo dato inserito (ultimo accessibile) 


primo dato inserito (primo accessibile) 


estrazione 


i 


Figura 3. Rappresentazione di una coda in memoria. 



1010 INPUT CI 

1020 IF C» - "P" THEN 1070 

1030 IF CI - "0" THEN 1110 

1040 IF CI - "V" THEN 1150 

1050 IF CI <> “E" THEN 1000 

1050 GOTO 1180 

1070 REM-ESEGUI PUSH- 

1080 INPUT “STRINGA: “;P1I 

1090 GOSUB 100 
1100 GOTO 1010 

1110 REM-ESEGUI POP- 

1120 GOSUB 200 

1130 PRINT "STRINGA- M ;P1I 

1140 GOTO 1010 

1150 REn-ESEGUI VI EU-- 

1150 GOSUB 300 
1170 GOTO 1010 
1180 END 


Questo è un programmino comple¬ 
to ed eseguibile che permette di richia¬ 
mare le soubroutine PUSH, POP e 
VIEW su comando da tastiera: alla 


linea 1010 viene letto il comando in 
C$, nelle linee da 1020 a 1050 si con¬ 
fronta il comando e si salta alla linea 
dove viene chiamata la relativa su¬ 
broutine con l’opportuno parametro. 
In ogni caso si ritorna alla linea 1010 
per leggere il nuovo comando. Se date 
un comando errato, viene ristampato 
il menù dei comandi. 

Code 

Passiamo ora al secondo argomen¬ 
to: si tratta di una struttura di dati 
molto simile allo stack, ma con diversa 
modalità di accesso. Esempi di code li 
abbiamo tutti i giorni davanti agli oc¬ 
chi nella nostra frenetica vita cittadi¬ 
na: code di automobili al casello del¬ 
l’autostrada, code di persone allo 


sportello, code di nomi in lista d’attesa 
per il biglietto aereo... 

La caratteristica comune di questi 
insiemi di elementi è il fatto che il pri¬ 
mo a uscire è il primo entrato, al con¬ 
trario dello stack, dove il primo a usci¬ 
re è l’ultimo entrato. La strategia di 
accesso a una coda prende il nome di 
FIFO, cioè “First In First Out”. 

In figura 3 vediamo una coda di va¬ 
riabili in memoria il cui “senso di mar¬ 
cia” è verso il basso. Per implementare 
una coda in Basic, useremo una tecni¬ 
ca simile a quella vista per lo stack, con 
qualche accorgimento in più: infatti, 
una coda non ha un’estremità fissa, 
come lo stack ma, man mano che si 
aggiungono ed estraggono elementi, 
la coda “scorre”. Quando arriva al ter¬ 
mine dell’array, la coda continua nel¬ 
l’altra estremità, come se l’array fosse 
ripiegato su se stesso con forma circo¬ 
lare (figura 4). 

Come si fa a realizzare un array cir¬ 
colare? Molto semplice: basterà che 
gli operatori di accesso alla coda fac¬ 
ciano ripartire da zero gli indici QB e 
QE ogni qualvolta raggiungono la 
sommità MX. La definizione della co¬ 
da di stringhe è: 

10 MX - 10 :REM DIMENS. MAX 
20 DIM MI(MX) :REM MEMORY 
30 QB - 0 :REM QUEUE BEGIN 
40 QE - 0 :REM QUEUE END 

Analogamente a quanto fatto per lo 
stack, definiamo gli operatori di acces¬ 
so allo coda, mediante apposite su¬ 
broutine Basic. L’operatore che inse¬ 
risce un elemento nella coda (all’altez¬ 
za dell’indice QB) verrà chiamato “en- 
queue” (accoda, in inglese). 


100 REM - 

110 REM ENQUEUE (ACCODA PII) 

120 IF QB + 1 - QE THEN 170 

130 MI(QB) - PII 

140 QB - QB + 1 

150 IF QB > MX THEN QB - 0 

150 RETURN 

170 PRINT “CODA PIENA" 

180 RETURN 


Osservate, alla linea 120, che il con¬ 
trollo sulla mancanza di spazio consi¬ 
ste nel confrontare i due indici QB e 
QE; alla linea 150 c’è l’istruzione che 
fa diventare “circolare” l’array, cioè fa 
continuare “a capo” la coda quando 
dovesse superare il limite di MX. L’o¬ 
peratore di estrazione di un elemento 
della coda verrà chiamato “dequeue” 
(disaccoda), e gira su QE anziché QB. 


200 REM - 

210 REM DEQUEUE (ESTRAI DALLA 
CODA E METTI IN PII) 
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220 IF QE - QB THEN 270 
230 Pl« - MS(QE) 

240 QE - QE + 1 

250 IF QE > MX THEN QE « 0 

2G0 RETURN 

270 PRINT "CODA VUOTA" 

280 RETURN 

È bene tenere presente le seguenti 
regole: la coda vuota viene riconosciu¬ 
ta dal fatto che i due indici QB e QE 
coincidono; la coda piena, invece, si 
ha quanto QB è arrivato appena sotto 
a QE; in una coda normale, cioè né 
piena né vuota, il fatto che QB sia 
maggiore o minore di QE non ha alcu¬ 
na importanza, trattandosi di un array 
circolare. 

Per provare queste soubroutine, po¬ 
tete utilizzare un piccolo interprete co¬ 
me quello visto per lo stack, in cui i 
comandi siano “Q” per accodare e 
“D” per disaccodare. 


50 GOTO 1000 

1000 PRINT "Q«ENQUEUE,D«DEQ. " 

1001 PRINT "V-VIEU, E-EXIT" 
1010 INPUT Ct 

1020 IF CS-"Q" THEN 1070 
1030 IF Ci-"D" THEN 1110 
1040 IF Cf-"V" THEN 1150 
1050 IF CSo"E" THEN 1000 
10G0 GOTO 1180 

1070 REM —ESEGUI ENQUEUE- 

1080 INPUT "STRINGA: ";Plt 
1090 GOSUB 100 
1100 GOTO 1010 

1110 REM —ESEGUI DEQUEUE- 

1120 GOSUB 200 

1130 PRINT "STRINGA- ";Plt 

1140 GOTO 1010 

1150 REM —ESEGUI VIEU- 

1160 GOSUB 300 
1170 GOTO 1010 
1180 END 


La subroutine 300 (view) sarà più 
significativa se stamperà tutto 1’array 
anziché la sola coda: nella linea 320 
l’array viene scandito “all’indietro” 
(cioè con step -1) allo scopo di avere 
sul video una rappresentazione simile 
a quella data nella figura 4. 


300 REM - 

310 REM VIEU (STAMPA ARRAY) 

320 FOR I - MX TO 0 STEP -1 
330 IF I-QE THEN PRINT “QE~> H ; 
340 IF I-QB THEN PRINT "QB->"; 
350 IF IoQE AND IoQB THEN 
PRINT M M ; 

3G0 PRINT MS (I) 

370 NEXT I 
380 RETURN 


Liste 

Il nome stesso dice di cosa si tratta: 
una lista è una sequenza di elementi in 
cui non vi sono particolari vincoli di 



rappresentazione 

logica 



1 IMM |^| 


rappresentazione 

fisica 



M$ (MX) 



Figura 5. Rappresentazioni differenti della medesima lista. 


accesso. Le uniche caratteristiche pe¬ 
culiari sono: la possibilità di avere una 
lunghezza qualsiasi e il mantenimento 
dell’ordine sequenziale degli ele¬ 
menti. 

A differenza dello stack e della co¬ 
da, implementeremo la struttura di 
dati “lista” senza una corrispondenza 
fra ordine fisico degli elementi in me¬ 
moria e ordine logico. In altre parole, 
la sequenza logica degli elementi di 
una lista non coinciderà con la sequen¬ 
za fisica delle stringhe dell’array. Per 
ottenere ciò è indispensabile avere 
una tabella che memorizzi l’ordina¬ 
mento degli elementi nell’array 
(P(MX) in figura 5). 

L’array P(MX) contiene l’indice (o 
puntatore) del prossimo elemento, 
che può essere non adiacente nell’ar- 
ray M$(MX). Per convenzione, il pun¬ 
tatore che non punta nulla conterrà il 
numero -1. L’inizio della lista verrà 
chiamato “radice” (“root” in inglese) 
ed è una variabile che contiene l’indice 
del primo elemento (o, meglio, che 
“punta” al primo elemento). Gli ope¬ 
ratori di accesso a una lista possono 
essere svariati; quelli che implemente¬ 
remo in Basic saranno i seguenti: 


Quando si esegue un “find”, l’ele¬ 
mento trovato verrà battezzato “ele¬ 
mento attuale” e costituirà il punto di 
riferimento per i futuri inserimenti 
(add) o cancellazioni (delete). Queste 
ultime consistono essenzialmente in 
una modifica ai puntatori e non com¬ 
portano alcun accesso alla stringa (fi¬ 
gura 6) : ciò rende molto più veloce il 
trattamento degli elementi di una li¬ 
sta, specie quando sono molto grandi. 

Il puntatore “previous” (“preceden¬ 
te”) serve per poter fare la ADD: que¬ 
sta operazione infatti implica un acces¬ 
so anche all’elemento precedente a 
quello attuale (puntato da “actual”), 
per modificare il suo puntatore. Per 
capire bene il listato che segue è indi¬ 
spensabile tenere presente come af¬ 
frontare le situazioni anomale, per 
esempio il caso in cui la lista sia vuota o 
l’elemento attuale non esista perché 
non trovato (figura 7). 

Nel listato che segue, la variabile FR 
(free, linea 60) serve nella ADD per 
sapere dove allocare il nuovo elemen¬ 
to che si vuole inserire. Quando si fa 
una DELETÉ, lo spazio liberato non 
viene recuperato per i futuri inseri¬ 
menti, quindi dopo un certo numero di 


add (aggiungi un elemento in un punto qualsiasi) 

delete (cancella un elemento in un punto qualsiasi) 
find (cerca un elemento contenente una certa stringa) 
vieu (visualizza l’organizzazione fisica della lista) 

scan (visualizza l’organizzazione logica della lista) 


■■■■■■■■ 
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Figura 7. Situazioni anomale nella gestione di una lista. 






1 REM LISTA 

2 REM-- 

10 MX - 10 :REM MAX 

20 Din M*(MX) f P(NX) 

30 RO - -1 :REM ROOT 
40 PR - -1 : REM PREVIOUS 
50 AC - -1 :REM ACTUAL 
60 FR - -1 :REM FREE 
70 GOTO 1000 

100 REM - 

110 REM ADD (INSERISCI PI* 
PRIMA DI AC) 

120 IF FR >- MX THEN 230 
130 FR - FR + 1 
140 M*(FR) - PI* 

150 AC - FR 

160 IF PR - -1 THEN 200 
170 P(FR) - P(PR) 

180 P(PR) - FR 
190 RETURN 
200 P (FR) - RO 
210 RO - FR 
220 RETURN 

230 PRINT "MANCA SPAZIO" 

240 RETURN 

300 REM - 

310 REM DELETE (CANCELLA L’EL¬ 
EMENTO PUNTATO DA AC) 
320 IF AC - -1 THEN 400 
330 IF PR - -1 THEN 370 
340 P(PR) - P(AC) 

350 AC - P (PR) 

360 RETURN 
370 RO - P(AC) 

380 AC - RO 
390 RETURN 

400 PRINT "ESEGUI LA FIND !" 
410 RETURN 

500 REM - 

510 REM FIND (FA PUNTARE DA AC 
L’ELEM. CHE CONTIENE PI*) 
520 AC - RO 
530 PR - -1 

540 IF AC - -1 THEN RETURN 
550 IF M*(AC)-PI* THEN RETURN 
560 PR - AC 
570 AC - P(AC) 

580 GOTO 540 

700 REM - 

710 REM VIEU (STAMPA L’ARRAY) 

720 FOR I - 0 TO MX 

730 PRINT I, M*(I), PCI); 

740 IF I«RO THEN PRINT"<-RO"; 
750 IF I*PR THEN PRINT"<-PR"; 
760 IF I-AC THEN PRINT"<-AC"; 
770 IF I«FR THEN PRINT"<-FR"; 


780 PRINT "" 

790 NEXT I 
800 RETURN 

900 REM - 

910 REM SCAN (STAMPA LISTA) 
920 I » RO 

930 IF I - -1 THEN RETURN 
940 PRINT I, M*(I); 

950 IF UAC THEN PRINT"<-AC"; 
960 PRINT "" 

970 I - P (I ) 

980 GOTO 930 

1000 PRINT "A=ADD, D-DELETE" 

1001 PRINT "F=FIND f V-VIEU" 

1002 PRINT "S-SCAN, E-EXIT" 
1010 INPUT C* 

1020 IF C*-"A" THEN 1070 
1030 IF C*-"D" THEN 1110 

1040 IF C*="F" THEN 1150 

1041 IF C*-"V" THEN 1180 

1042 IF C*="S" THEN 1130 
1050 IF C*o"E" THEN 1000 
1060 GOTO 1200 

1070 REM —ESEGUI ADD- 

1080 INPUT "STRINGA: ";P1* 
1090 GOSUB 100 : REM ADD 
1100 GOTO 1010 

1110 REM —ESEGUI DELETE- 

1120 GOSUB 300 :REM DELETE 
1130 GOSUB 900 :REM SCAN 
1140 GOTO 1010 

1150 REM -—ESEGUI FIND- 

1160 INPUT "STRINGA: ";P1* 
1170 GOSUB 500 : REM FIND 
1180 GOSUB 700 :REM VIEU 
1190 GOTO 1010 
1200 END 


inserimenti l’array sarà pieno anche se 
la lista sarà corta (linea 230). La su¬ 
broutine 100 (ADD), dopo aver allo¬ 
cato l’elemento (linee da 120 a 150) 
provvede a sistemare i puntatori, se¬ 
condo lo schema visto in figura 6: le 
linee da 170 a 190 trattano il caso di 
inserimento in un punto qualsiasi della 
lista; le linee da 200 a 220 trattano gli 
inserimenti all’inizio della lista, cioè 
fra la radice RO e il primo elemento. I 
nuovi elementi vengono inseriti prima 
di quello attuale, però se i puntatori 
AC e PR valgono entrambi -1 (come 
capita all’inizio) l’inserimento avverrà 
fra la radice e il primo elemento. Per 
inserire un elemento alla fine della li¬ 
sta, cioè dopo l’ultimo elemento, biso¬ 
gna prima fare un FIND a vuoto, cioè 
cercare un elemento che non esiste 
(per posizionare PR sull’ultimo ele¬ 
mento). 

La subroutine 500 (FIND) cerca l’e¬ 
lemento contenente Pl$, partendo dal 
primo elemento della lista (linea 520) 
e “percorrendo” gli elementi successi¬ 
vi (linea 570), confrontando ogni volta 
il contenuto (linea 550). La subroutine 
300 (DELETE) sposta semplicemente 
il puntatore dell’elemento precedente 
a quello da cancellare (linea 340): per 
cancellare il primo elemento, si agisce 
sulla radice (linea 370). La subroutine 
700 (VIEW) stampa l’array, eviden¬ 
ziando la posizione dei vari puntatori: 
RO, AC, ... (linee da 740 a 770). La 
subroutine 900 (SCAN) stampa la lista 
in ordine logico, cioè partendo dal pri¬ 
mo elemento (linea 920) e consideran¬ 
do di volta in volta il puntatore al suc¬ 
cessivo elemento (linea 970). 

Saranno argomento della prossima 
puntata due applicazioni di quanto 
detto: l’intento è quello di ottimizzare 
lo spazio di memoria e i tempi di acces¬ 
so ai dati. 

Alessandro Mazzetti 
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Figura 6. Operazioni di accesso a una lista. 
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• Excel 

Excel è la risposta della Microsoft a Jazz, programma 
integrato della Lotus. Riunisce in sé uno spreadsheet 
grafico e un data base. Per quanto riguarda lo spreadsheet, 
si tratta sicuramente del più ampio oggi in commercio, 
con le sue 256 colonne e 16.384 righe. Il programma, da 
solo, occupa 347K di memoria, mentre un secondo disco 
di boot contiene 250K di files di sistema, gli help e i 
files di dati. E' possibile usarlo con un drive solo, anche 
se è sconsigliabile farlo. In realtà, il miglior utilizzo di 
Excel è con un disco fisso, in quanto il programma può 
usare 1.024K di memoria. 


é File Edit Formula Format Data Options Macro Lilindoni 

C 1 2 ^ 




neiurusa 

jazz-sales 


A [ B 

3 

NuYo Record* Ine 

„ 6%_ 

■ Marsalis 
Wynton 

il DeJohnet 

4 


5 

Sales by Artist 

6 


Jazz-list 

category-sales 



: units inet 

Jazz Sales : 1 62000° $1J 30,760 00 ^ 

Claaaical Saies* 408000 $5,295,840 00 r 

Rock Salea H 05000 : $8,8 1 7,900 00 

' R&B Sales 1 225000 ; $ ) ,795,500 00 r 


Apprendere i comandi di base è abbastanza semplice, 
mentre per diventare un utente "avanzato" occorre studiare 
a fondo il manuale, per apprendere tutta una serie di 
nuovi comandi che permettono un uso sofisticato del 
programma. Un documento può essere salvato, oltre che 
nei consueti modi, anche in WKS file, cioè leggibile dai 
programmi per IBM 1-2-3 e Symphony. 

In genere, il punto debole di un programma integrato 
sta nel fatto che i programmi, presi singolarmente, sono 
migliori e più potenti: nel caso di Excel, la Microsoft è 
riuscita a integrare alcune funzioni data base, chart e 
spreadsheet senza sacrificarne le capacità singole. 

In Italia, Excel è commercializzato da J. Soft, Via 
Rosellini 12, Milano, e costa 977.064 lire, Iva esclusa. 


• Quartet 

Per l’utente di Mac da 128K ecco un programma 
integrato che riunisce in sé uno spreadsheet con i grafici, 
un text editing e un data base. Lo spreadsheet è composto 
da 62 colonne e 999 righe, ed è abbastanza completo 
quanto a funzioni. Data base e text editing sono molto 
semplicizzati, ma utili per lavori che non richiedano la 
massima potenza. Il fatto poi di poter girare su un 


Macintosh 128K e il prezzo di 199.95 dollari, rendono 
questo programma integrato molto interessante. Haba 
Systems, 15154 Stagg St., Van Nuys, Calif. 91405, 
USA. 


• Mac2624 e Mac/3000 

Il primo permette di simulare un terminale HP 3000, 
compatibile con tutte le applicazioni HP. Il secondo 
permette di simulare un terminale HP 3000 2624A/B. 
Costano 149 dollari ciascuno e sono prodotti, il primo da 
Tymlabs Corporation, 211 E. Seventh St., Austin, 
Texas 78701, il secondo da DPEX, Ine., 200 BROWN 
RD., Suite 201, Fremont, Calif. 94539, USA. 


• Business Graphics 

Chi ha il problema di grafici molto complessi e pieni 
di dati, può con questo programma creare una decina di 
grafici a due o tre dimensioni: maggiore professionalità 
e, soprattutto, maggiore chiarezza sono assicurate. I dati 
possono essere inseriti o per mezzo della tastiera o ripresi 
direttamente da Multiplan, Microsoft Chart o Ensamble. 
Hayden Software Company, Ine., 650 Suffolk St., Mass. 
01854, USA. Prezzo al pubblico: 99.95 dollari. 



• MacLink 

Protocollo di comunicazione tra Macintosh e IBM PC 
per trasmettere a due vie i programmi Lotus 1-2- 
3/Multiplan; WordStar/MacWrite; Multimate/MacWrite. 
Prodotto da DataViz, Ine., 16 Winfield St., Norwalk, 
Conn. 06855, USAPrezzo al pubblico: 125 dollari. 

^— ERRATA CORRIGE_ v 


Il programma PAGE MAKER per Macintosh 
(Applicando 20 , pag. 72) 

è distribuito per l'Italia dalla ITALWARE, e non dalla Apple, 
e costa 1.600.000 lire. Ci scusiamo dell'errore. 

\ ___ / 
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applicando 


Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando, 
acquistare una copia, cercare un numero arretrato... 


VALLE D’AOSTA 


Aosta: Informatique sas, Av. Consei! des 
Commis 14-Quart (AO): Informatique 2, 
Reg. America 31. 

PIEMONTE 


Alba (CN): Centro computer, Via Paruzza 2- 
Alessandria: Sistemi Bit, Via Ghilini 27- 
Asti: 'Gestione Dati srl, Via B. Buozzi 45- 
Biella (VC): Consul Computer srl, Via delle 
Rose 2. Informatica Biella sas, Piazza S.Paolo 
1/B-Borgomanero (NO): All Computer, 
Corso Garibaldi 106-Cuneo: Thema Inform. 
Distribuita sas, Via Statuto 10-Domodosso- 
la (NO): Nuova Elettronica, Via Giovanni 
XXIII 68-Novara: D.R. srl, V.le XX Settembre 
19. D.R. srl, Via Morera 3. SPA srl, Via A. 
Canobbio 16/A Pinerolo (TO): Elaborazio¬ 
ne Dati Pinerolo, Viale Montebello 6-Torino: 
A.B.Computer sas, Corso Grosseto 209. Bel¬ 
lucci Benedetto, Via Papacino 23. Cominfor 
Sistemi sas, Corso Telesio 4/B. Digitalsync 
snc, Corso Moncalieri 303. Dimensione Per¬ 
sonal, Via Bertola 22/e. GE.NE.CA. srl, Via XX 
Settembre 51. Hobby Elettronica, Via Saluzzo 
11/F-G-H. Omicron Computers snc, C.so 
Duca degli Abruzzi 14. Pinto G. Componenti 
elettr., Corso Principe Eugenio 15 bis. Softec 
Computer srl, Via Juvarra 24. Tecnosystem 
Computer Shop, Corso Francia 12. Tekno 
Computers srl, Via Madama Cristina 31/c. 

LIGURIA 


Genova: Computer Center, Via San Vincen¬ 
zo 129 r. Sals Informatica spa, Via D’Annun¬ 
zio 2 e V.le B. Partigiane 132 r-Genova 
Sampierdarena: Computer Center sas, Via 
Storace 4r-Lavagna (GE): Raffo Linea Uffi¬ 
cio, Corso Genova 100-La Spezia: Softline 
srl, Via Piave 19 Rapallo (GE): Raffo Linea 
Ufficio snc, Via della Libertà 130-Sanremo 
(IM): A.E.S., Via Martiri della Libertà 180- 
Savona: Briano snc, Cbrso Tardy e Benech 
20 r-Sestri Ponente (GE): All Computer 
sas, Via C. Menotti 136 r. 

LOMBARDIA 


Alme (BG): Elcod, Viale Italia 45/A-Assago 
(MI): Basic Computers, Centro Commerciale 
Milanofiori-Bergamo: Il mondo dell’infor- 
matica, Via Pitentino 8. Studio 15 srl, Via 
Quarenghi 60. -Brescia: Alfa computer, Via 
Bassi 26. Brescia Computers srl, Via Malta 
12. Il Computer srl, Via Solferino 5. Personal 
Data, Via Brozzoni 4 Como: Accaesse Infor¬ 
matica srl, Via Acquanera 46. D.S.I. srl, Via 
Dottesio 8. Irpe Informatica srl, Via Cadorna 
1/a-Cremona: Archimede, Via Palestro 
11/B-Gallarate (VA): Irpe Computer srl, Via 
Pegoraro 8-Gavardo (BS): Bit Shop, Via G. 
Quarena 120-Lecco (CO): Computers Lecco 
snc, Via Nino Bixio 18/B. Datamation, Viale 
Turati 40-Lissone (MI): Computerlandia, 
Via Martiri Libertà 72-Mantova: Antek 
Computer sas, Via Cavour 69-Melegnano 
(MI): L'Amico del Computer, Via Castellini 
25-Milano: A.G.Informatica srl, Via G.Silva 
49. All’Informatica Shop, Via Lazzaretto 2. 
All’Informatica srl, Via Vigevano 8. Commu¬ 
nications Engineering, Piazza Firenze 4. Del- 
tron srl, Viale Gran Sasso 50. Esprit, Via 
Bergamini 13. Happy System, Piazza Diaz 6. 
Il Tempio del Computer, Via Pattari 2. Indico 
seri, Via Marco d’Agrate 1. Indico seri, Via 
Pier Capponi 12. Information Technology, 
Via dei Bossi 7 ang. Via Broletto. La Bottega 
Informatica srl, Va Turati 6. Macan sas, Via 
Broletto 39. Microtech Sistemi, Viale Piave 7. 
Polisistemi, Via Derna 19. SH Computers srl, 
Viale Montenero 33. Small Business Compu¬ 


ters, Via Vitruvio 38. Softec Computer, Viale 
E. Jenner 23-Monza (MI): ESI srl, Via Ca¬ 
vallotti 11. Nikom Electronics, Via Asiago 7- 
Pavia: M.A.S.H. Computer Systems, Via 
della Rocchetta 5. Senna Gianfranco snc, Via 
Calchi 5-S.Antonio Mantovano (MN): 
Antek Computer sas, Via Manzoni 49-Trez- 
zano sul Naviglio (MI): Personal computer 
shop, Via L da Vinci 36-Varese: IRPE srl, 
Via Carantani 1 -Villasanta (MI): Computer 
Area show room, Via Carducci 2. Computer 
Area snc, Via Volta 27/a. 

TRENTINO 


Trento: SI.GE. sas, Via Piave 28 

FRIULI-VENEZIA GIULIA 


Gorizia: Elcom, C.so Italia 149 Pordeno- 
ne: Electronic Center snc, Viale Libertà 79. 
Electronic Center, Viale Martelli 17-Trieste: 
Computermarket, Via Valdirivo 6-Turriaco 
(GO): Tecno Power Elettronica, Via Marconi 
19-Udine: BIT Computers, Via Pozzuolo 
107. PS Elettronica sas, Via Tavagnacco 
89/91 C.C. 

VENETO 


Bassano del Grappa (VI): A-Tre snc, Piaz¬ 
za Firenze 23-Conegliano (TV): Computing 
Program, Via G. Piovesana 32-Creazzo (VI): 
Uomo Computer, Via Olmo 38-Mestre 
(VE): Pacinotti sas, Via Torino 92-Mirano 
(VE): Saving Elettronica, Via Gramsci 40- 
Montebelluna (TV): Uomo Computer, 
C.so Mazzini 53 Montecchio Magg.(VI): 
Effecomp (Esa), Piazza Carli 2-Padova: Ca¬ 
povilla & C. sas, Galleria Scrovegni 5. Com¬ 
puter Service srl, Via Beethoven 3. E.D.P. 
Sistemi srl, Via Borromeo 13-Rovigo: Com¬ 
puter Service sas, Via Cavallotti 12 Treviso: 
A5 Computers srl, Borgo Cavour 37/A-Ve- 
nezia: Personal Computer, Cannaregio 
5894-Verona: ARMU srl, Via Teatro Filar¬ 
monico 3. Chip Computer (Esa), Stradone 
S.Fermo 8. Esacomp srl, Via Roveggia 43. 
MOS 80 sas, Via Germania 21. MOS 80 
computer shop, Via del Pontiere 2. MOS 80 
Personal Computers, Largo Marzabotto 21- 
Vicenza: Abc Informatica srl, Contrà Porta 
Padova 19. Abc Informatica srl, Viale S. Laz¬ 
zaro 19. Sevi sas, Via S. Agostino 87 Villa- 
franca (VR): Studio 4, Corso V. Emanuele 
65. 

EMILIA ROMAGNA 


Bologna: CEDA Minicomp srl, Piazza Aldro- 
vandi 2/2. Computer Systems, Via Ercolani 
10/d. EDP Sistemi BO srl, Viale Pietramellara 
61/F. Lucky Systems, Via Farini 33/a. Ser- 
com, Via B. da Carpi 9/B-Carpi (MO): Iret 
Carpi, Via Berengario 58-Cesena (FO): SHC 
snc, Via Pisa 40/42-Ferrara: Mazzacurati 
Claudio, Viale Cavour 186/188. Soc. Termo¬ 
meccanica, Via Tito Speri 5. Tecnomeccani¬ 
ca, Via Garibaldi 195 Fidenza (PR): Archi- 
mede, Via Vito Aimi 2. RCM Computer, Via 
Cornini Malpeli 11 -Fiorenzuola d'Arda 
(PC): Centro Computer, Corso Garibaldi 
125/A-Forlì: A-Z Computer srl, Via Cignani 
7. Icot Impianti srl, Via Masetti 56. Kronos, 
Via Oreste Regnoli 30 Modena: Canalgran¬ 
de Informatica, Corso Canalgrande 14. Iret 
spa, Corso Canalgrande 29. Masetti Elettro¬ 
nica srl, Via Emilia Centro 211-Parma: 
Computek sas, Piazzale Boito 5. Iret spa, Via 
Cavallotti 3. RCM Computer, Via Farini 51a- 
Piacenza: PC-Personal Computer, Via 
Chiapponi 42. RCM Computer, C.so Vittorio 
Emanuele 96-Reggio Emilia: Computer 
Center srl, Via D. Alighieri 4. Esaprogetti, Via 


F. Filzi 2. Iret spa, Via Emilia S. Stefano 32- 
Rimini: Computer Line, Via Coletti 61 -Sas¬ 
suolo (MO): Iret Sassuolo, Via Pretorio 65- 
Scandiano (RE): Informatica System, Via 
Statale 13/A Viserba di Rimini (FO): Com 
puter Center, Via Pai lotta 25/A. 

TOSCANA 


Arezzo: Sisted srl, Via L, Galvani 22. Sisted 
srl, Piazza Risorgimento 10-Borgo a Bug- 
giano (PT): CO-DI snc, Via 24 Maggio 119- 
Firenze: Anfrel Informatica sas, Via Masac¬ 
cio 50 e Viale Gramsci 10/R. Centro Servizi 
srl, Via P. Petrocchi 24. Computer Line srl, 
Viale Spartaco Lavagnini 20. Elettronica Cen¬ 
to Stelle srl, Via Cento Stelle 5/B. Line spa, 
Via G. Di Vittorio 10. Paoletti Ferrerò, Via il 
Prato 40/42r. P.T.E. snc, Via Duccio da Buo- 
ninsegna 60. Soluzioni EDP srl, Corso dei 
Tintori 39r. Tuttocomputer (C.serv.), Via Pan- 
zani 36/38r-Forte dei Marmi (LU): Blu 
Data, Via Morin 95 Grosseto: C.I.S.I.D. 
Computer snc, Via Papa Giovanni XXIII 4- 
Livorno: Livinform 2, Scali delle Cantine 62. 
Livinform srl, Via Roma 8 (P.za Attias)- 
Massa: Euro Computer sas, Piazza C. Berta- 
gnini 4-Montecatini: CO-DI snc, Via I 
Maggio 20/22 Fraz. Margine Coperta-Peri- 
gnano (PI): Memor Informatica srl, Via To¬ 
gliatti 2-4-8-Piombino (LI): Centro Ufficio 
sdf, Via F. Ferrer 37/39-Pisa: Data Port due, 
Via Sancasciani 35. Società Elettronica Tirre¬ 
na, Via Fucini 20-Pistoia: Inter Systems. Via 
Pietro Mascagni 14-Pontedera (PI): Data 
Port srl, Via Brigate Partigiane 27-S. Gio¬ 
vanni Valdarno (AR): ICS srl, Via Gari¬ 
baldi 46. 

UMBRIA 


Cerbara di città (PG): Computer Post. Via 
Madonna del Vento-Foligno (PG): Linea in¬ 
formatica snc, Via Garibaldi 81 -Perugia: 
Icot Impianti, Via Cicioni 8-Ponte S.Gio- 
vanni (PG): Ready Computer srl, Via Adriati¬ 
ca 49. 

LAZIO 


Latina: Easy Byte, Viale XVIII Dicembre 44- 
Lido di Ostia (Roma): A C S -Advanced 
Computer System, Via S. Consacchi 10. Co- 
smic srl, Via delle Gondole 168/170-Ostia 
(Roma): AG Computer Systems srl, Via A. 
Carabelli 108/1 1 2-Roma: AG Computer Sy¬ 
stems srl, Via G.Lanza 101/103/105. Biotech 
srl, Via S. Valentino 18. Bit Computers 2, 
Viale Ionio 333/335. Bit Computers 3, Via 
Nemorense 14/16. Bit Computers Nord, Via 
Tuscolana 350/350a. Bit Computers Star, Via 
F. Satolli 55/57/59. Compushop, Via No- 
mentana 265/273. Computer Center srl, Via 
Nizza 48/52. Computerart srl, Via Michele di 
Landò 41 . Computime srl, Via Cola di Rienzo 
28. Computime srl, Viale Parioli 25. Cosmic 
srl, Via Viggiano 70. Cosmic srl, Via Vespa¬ 
siano 56/b. Easy Byte, Via Giovanni Villani 
24. E.D.P. Market, Via Somalia 205. E.M.EUR 
Micro Computer, Viale C. Pavese 267. FBM 
di Mario Bagnetti, Via Flaminia 395. S.I.- 
PR.EL. srl, Via Pompeo Magno 94-Roma 
EUR: Bit Computers, Via F. Domiziano 10- 
Viterbo : Alfa Computer, Via Palmanova 
12/C. 

MARCHE 


Ascoli Piceno: Rinascita Informatica sas, 
Corso Trento e Trieste 17 Camerino (MC): 
M.E.D., Via V. Venanzi 11/13-Civitanova 
Marche (MC): N.B.P. Elettronica, Via Don 
Bosco 11/1 3-Fabriano (AN): M.E.D., Piazza 
Rosselli 6-Jesi (AN): E.M.J. sas, Via F. Con¬ 


ti 4. New Computer srl, Via Pergolesi 271- 
Macerata: M.E.D., Via Mozzi 72/a-Tor- 
rette di Ancona (AN): Sisteda spa, Via 
Flaminia 286/a. Sisteda srl, Via Velino 5. 

ABRUZZO 


Avezzano (AQ): Aspron, Via America 
10/1 2-Chieti: Computer Point sas, Viale 
Unità d’Italia 5 L'Aquila: S.E.A.D. srl, Via 
Giardini 16a-Lanciano (CH): Electronic Mi¬ 
crosystems, Via della Pace 3-Pescara: 
O.C.S.A. srl, Viale Marconi 361 (zona stadio). 
Ormi Computers srl, Via C. Goldoni 5-Vasto 
Marina (CH): O.C.S.A. srl, S.S.Adriatica 


MOUSE 


Campobasso: Informatica Molisana, Via B. 
Buozzi 12 

CAMPANIA 


Avellino: I C C. Elettronica srl, Via degli 
Imbimbo 126 Barano d’Ischia (NA): Mat¬ 
terà Antonio, Via Roma 61 -Benevento: Ma- 
sone Informatica, Viale dei Rettori 57-Napo- 
li: Computer Systems srl, Via Puccini 19. 
Golden Computer srl, Via Michelangelo 7. 
I.C. International Computer srl, Via Nuova 
S.Rocco 62/P.co Soleado. I.C. International 
Computer, Via Posillipo 130. La Barbera Car¬ 
lo sas, Via Toledo 320-Salerno: Computer 
System, Via E. Bottiglieri 19. SEDA srl, Via 
Parmenide c/o lannone. 

CALABRIA 


Catanzaro: Ce Sim sas, Via Carlo V 
174/180. Visicom srl, Via Minniti Ippolito 
10-Cosenza: Micro Systems sdf, Via Roma 
75-Gioia Tauro (RC): Tecnocomp snc, Via 
Nazionale SS 111/11 7-Reggio Calabria: 
GLM Informatica snc, Via De Nava 98-Spez- 
zano Albanese (CS): lannibelli. Via Strago- 
lia 48. 

PUGLIE 


Bari: Auditorium 3, Piazza Massari 15. Cies- 
se spa, Via Re David 176/d. L.e L. Computers 
srl, Largo 2 Giugno 4-Brindisi: S.I.C. srl, 
Viale S.Giovanni Bosco 109 Foggia: ISI srl, 
Via Matteotti 83-Lecce: Quasar Informatica 
srl, Via Giacomo Arditi 11-Molfetta (BA): 
Auditorium 3, Piazza Garibaldi 12/a-Puti- 
gnano: Amore & Computer, Via G. Laterza 
28 Taranto: Elettrojolly Centro srl, Via De 
Cesare 13. 

BASILICATA 


Matera: Lucana Sistemi srl, Via Don Minzo- 
ni 4. 

SICILIA 


Catania: Cafici Francesco, Via Ala 57/59. 
Centro Informatica sdf, Via Firenze 211. 
Computer Shop, Via E. Orlando 164. SI.EL 
Informatica snc, Piazza Galatea 2-Messina: 
C.E.E. srl, Via Industriale 116. Cubeta srl, Via 
Cardines 12/14. Libreria Bonanzinga, Via dei 
Mille 110-Milazzo (ME): Tectron Tecnolo¬ 
gie Elet. srl, Via dei Mille-Palermo: Compu¬ 
ter Shop (Inf.Comm.), Via Notarbartolo 
23/b/c. Informatica Commerciale spa, Via 
Notarbartolo 26-Ragusa: Sosyco, Corso 
V.Veneto 597-Trapani: Gualano Eugenio, 
Via Virgilio 11. 

SARDEGNA 


Cagliari: S I I., Via S.Lucifero 85-Sassari: 
Bajardo, V.le Italia 16. 
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In questo terzo articolo sulla grafica ad altissima 
risoluzione prosegue l’esplorazione dell’animazione delle 
figure a blocchi. Per ottenere una semplice animazione di 
queste figure si possono impiegare sul //e oppure sul //c 
128K le routine messe a punto nel precedente articolo. 



DOS 3.3 






APPLE //e 



APPLE //c 



Se raddoppia 
la Hi-Res 


N ell’articolo precedente sono stati 
descritti i procedimenti e i pro¬ 
grammi necessari per disegnare figure 
a blocchi sullo schermo a doppia alta 
risoluzione. Adesso apprenderete la 
notevole arte dell’animazione in DHR 
(Doublé Hi—Res). Per farlo occorro¬ 
no i programmi messi a punto sul nu¬ 
mero scorso: pertanto sarà utile con¬ 
sultare quell’articolo {Applicando n. 
20, pag. 75) e le sue illustrazioni. 

L’animazione 
della figura 

Ora che avete qualche figura con cui 
lavorare potete provare a fare la vo¬ 
stra prima animazione. Troverete in 
queste pagine una dimostrazione non 
solo del modo in cui si possono usare 
per 1’animazione le routine DRAW e 
DRAWDN (senza dover cancellare), 
ma anche del modo in cui dare l’im¬ 
pressione che le figure si muovano die¬ 
tro altri oggetti presenti sullo scher¬ 
mo. 

Per prima cosa disegnerete una bar¬ 
riera orizzontale color arancione at¬ 
traverso il centro dello schermo. Poi 
sposterete l’astronave su e giù sullo 
schermo, con la figura sempre in movi¬ 
mento dietro la barriera. Prima di ese¬ 
guire effettivamente il programma os¬ 
servate però la figura 1 , che fa vedere 
come si realizzano la scomparsa dell’a¬ 
stronave e la sua riapparizione da die¬ 
tro la barriera. 

La prima cosa che occorre afferrare 
è che non è necessario disegnare l’inte¬ 
ra figura. Nella tavola delle figure non 


c’è nulla che definisca il punto in cui 
essa termina. Non potrete mai cam¬ 
biare le dimensioni HR—HL (orizzon¬ 
tale a destra, orizzontale a sinistra) 
della figura senza distruggere il suo 
aspetto; si possono invece cambiare le 
dimensioni VT-VB (sommità verti¬ 
cale, fondo verticale) della figura. 
Quando una routine pilota (driver) ha 
completato il suo lavoro nell’ambito 
delle dimensioni VT—VB che sono 
state specificate essa finisce. Se si im¬ 
postano dimensioni VT—VB inferiori 
alle reali dimensioni della figura si di¬ 
segnerà soltanto una parte di questa. 

E qui che entra in giòco la differenza 
di metodo fra le routine DRAW e 
DRAWDN. Se si vuol disegnare solo 
la parte superiore della figura si può 
usare DRAWDN, e i soli byte che ap¬ 
pariranno saranno quelli compresi fra 
VT e qualsiasi VB sia stata specificata. 
Se invece si vogliono solo le parti infe¬ 
riori si può usare DRAW, e le sole 
parti della figura a essere disegnate 
saranno quelle comprese fra VB e 
qualsiasi VT sia stata specificata. 

Si potrebbe fare la stessa cosa anche 
con REVDIR, e invertire soltanto le 
parti inferiori della figura; ci si deve 
però render conto che poiché REV¬ 
DIR rifà automaticamente lo SCAN 
della figura la tavola, come sempre, 
corrisponderà esattamente con quan¬ 
to c’è sullo schermo. Può darsi, s’in¬ 
tende, che sia proprio questo il deside¬ 
rio dell’utilizzatore. 

Osservando la figura 1 noterete che 
la barriera è impostata dalle coordina¬ 
te Y che vanno da 90 a 105. Una volta 
che la figura è scesa a VB=89 la lasce- 



rete stare e continuerete a incrementa¬ 
re VT finché sarà anch’essa 89, e a 
questo punto sembrerà che la figura si 
sia spostata dietro la barriera. 

Ciò che è accaduto in realtà è che 
avete continuato a spostarla in giù, 
cancellandola riga per riga all’altezza 
della barriera fino a che non si è trova¬ 
ta più sullo schermo. Per farla ricom¬ 
parire da dietro la barriera comincere- 
te con VT e VB e imposterete EN¬ 
TRAMBE su 106. Poi lascerete stare 
VT continuando a incrementare VB e 
ridisegnando con DRAW fino a quan¬ 
do l’intera figura sarà stata riportata, 
riga per riga, sullo schermo. Userete, 
per la parte superiore della figura, 
DRAWDN (perché volete solo le par¬ 
ti superiori della figura 143) e sotto la 
barriera userete DRAW e la figura 
144 (perché volete solo le parti inferio¬ 
ri della figura). 

Il programma dimostrativo si trova 
nel listato 1 . Vediamo come funziona. 

Animazione.l 

Le linee 80—150 dovrebbero risul¬ 
tarvi familiari e facilmente comprensi¬ 
bili. La sola novità in questo punto è 
che è stato aggiunto aggiunto CALL 
37517 alla linea 130, che disattiva la 
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FIGURA 1. SOVRAPPOSIZIONE DI FORME. 


SI USA "DRAWDN" 
SU QUESTO LATO 
DELLA BARRIERA 


I 

I 

I 

I 


SI USA "DRAW" 

SU QUESTO LATO 
DELLA BARRIERA 


HL HR 


- r 

J L 

1 

j- 1 




BARRIER 




rL 


~L r 

T 


HL HR 


INCREMENTA DA 76—89 PER 
IL MOVIMENTO DIETRO LA 
BARRIERA E DECREMENTA 
DA 89—76 PERCHÈ RIAPPAIA 
LA FIGURA DA DIETRO LA 
BARRIERA 'yjg_gQ 

I 90 

I 

I 

I 


J 105 
VT = 106 


DECREMENTA DA 119—106 
PER IL MOVIMENTO DIETRO 
LA BARRIERA E INCREMEN¬ 
TA DA 106—119 PERCHÈ RIAP¬ 
PAIA LA FIGURA DA DIETRO 
LA BARRIERA 


funzione EOR (fine record) di 
DRAW e DRAWDN. Se lasciaste at¬ 
tivata la funzione EOR la figura lasce- 
rebbe una scia dietro di sè, perché fa¬ 
rebbe l’EOR con i propri byte di dati. 

La linea 16Ò disegna la barriera 
arancione attraverso lo schermo utiliz¬ 
zando la subroutine di linea 140 per 
tradurre le coordinate 0—559 in coor¬ 
dinate HPLOT 0-279. 

La linea 170 scrive in memoria con 
POKE i parametri iniziali della figura. 

La linea 190 sposta in giù la figura 
fino a che essa raggiunge l’orlo della 
barriera. Prima fa il DRAWDN della 
figura, poi usa GODOWN per incre¬ 
mentare VT e VB in modo che tutto 
sia pronto per il disegno seguente. 

Linea 200; a questo punto VB=89, 
e quindi continuate a incrementare 
VT, poi usate DRAWDN fino a che 
anche VT è uguale a 89. A questo 
punto la figura è scomparsa dallo 
schermo. 

La linea 210 commuta sulla figura 
appropriata per l’impiego con 
DRAW. 

La linea 220 imposta VT e VB ugua¬ 
li a 106, poi incrementa VT e disegna 
con DRAW fino a quando avrete ri¬ 
portato interamente la figura sullo 
schermo, appena al disotto della bar¬ 
riera. 


Poi la linea 230 sposta la figura alla 
base dello schermo disegnandola con 
DRAW e utilizzando quindi GO¬ 
DOWN per incrementare VT e VB pe 
la successiva operazione di disegno. 

La linea 250 è esattamente l’oppo¬ 
sto della linea 230. Qui disegnate la 
figura con DRAW, poi usate GOUP 
per decrementare VT e VB fino a 
quando raggiungerete nuovamente la 
barriera. 

Linea 260; a questo punto VT=106, 
e perciò lasciate stare VT e continuate 
a decrementare VB e a ridisegnare la 
figura fino a quando scompare dietro 
la barriera. 

La linea 270 riporta alla figura 143 
per l’impiego al disopra della barriera 
con DRAWDN. 

Linea 280; impostate sia VT sia VB 
su 89 e continuate a decrementare VT 
fino a quando la figura sarà riportata 
da dietro la barriera. 

Linea 290; infine usate DRAWDN 
e GOUP fino a quando la figura rag¬ 
giungerà nuovamente la sommità del¬ 
lo schermo. 

Linea 300; a questo punto non avete 
realizzato alcuna routine di animazio¬ 
ne orizzontale dal movimento scorre¬ 
vole, e quindi questa linea dapprima 
abilita la funzione EOR con EORON, 
poi cancella la figura, e disattiva nuo¬ 


vamente l’EOR con EOROFF. 

La linea 310 usa la routine MO- 
VERT per incrementare HR e HL in 
modo che tutto sia pronto per il suc¬ 
cessivo viaggio all’ingiù. 

Da notare che non avete inserito nel 
programma una trappola che impedi¬ 
sca di uscire dall’orlo destro dello 
schermo, in quanto questa protezione 
è incorporata nella routine MO¬ 
VE RT. Quando la figura arriverà al¬ 
l’orlo destro continuerà semplicemen¬ 
te a spostarsi su e giù nello stesso po¬ 
sto. 

Questo programmino, pur essendo 
piuttosto semplice e non tremenda¬ 
mente sofisticato, dovrebbe darvi una 
buona idea del modo in cui lavorare 
con DRAW e DRAWDN. 

Come accelerare 
l’animazione 

Un metodo con cui si potrebbe acce¬ 
lerare un po’ l’animazione è il ricorso 
alle routine YINCRU e YINCRD in 
luogo di GOUP e GODOWN, che 
permetterebbero di spostare le figure 
di più di una sola coordinata Y per 
ogni mossa. Per far questo, evitando al 
tempo stesso la necessità di qualsiasi 
attività di cancellazione, sarebbe ne- 
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FIGURA 2. 


MAPPA DEL DRIVER 

TAVOLA 

DEGLI 

INDIRIZZI 

$9480 

tt'ri a stt' nc\r\f\ 

SETUP 

YADDR 

q>y40r i 1777 

KILL 

3>y4Ò4 j /yoo 

tf'rv a a t-> o'-jrwr/r 

INIT 

!j>y44c, i /VDO 

HGR 

;}>y441 j/ yjo 

(tn/no nooQ 

HOME 

0>y4Zo i /yZo 

SCAN 

4>y4ic j/yio 

DRAW 

vfcViDA ì/ojU 

DRAWDN 

5>yjy4 i / /OU 

REVDIR 

3>y34C i / /Uo 

YINCRD 

jylbo J/Oz4 

YINCRU 

$92b5 i /oUj 

OTCOO 

GODOWN 

$92D4 i / joo 

GOUP 

S92L9 j/j// 

MOVELF 

$92CU i/300 

MOVERT 

yyZDi i/jjy 

EOROFF 

$92AC i /34o 

EORON 

$92oD i/jl/ 

— $9283 37507 


Lunghezza totale = 893 bytes 


cessano lasciare sopra e sotto la figura 
un numero di righe vuote uguale al- 
l’YINCR scelto. 

Anche se questa animazione è mol¬ 
to scorrevole e ragionevolmente velo¬ 
ce, il miglior modo per accelerare le 
cose sarebbe comunque quello di aggi¬ 
rare l’interprete Applesoft e utilizzare 
direttamente il linguaggio macchina. 

Per avere un’idea di quanto il codice 
macchina accelererebbe le cose, pote¬ 
te introdurre in memoria i codici esa- 
decimali del listato 2, che è un’esatta 
traduzione in linguaggio macchina 


Listato I 


10 REM *********************** 

20 REM * MINZIONE. 1 * 

30 REM * DI ROBERT S. DEVINE * 

40 REM * COPYRIGHT (0 1985 * 

50 REM * BY APPLICANDO & * 

60 REM * MICROSPARC, INC. * 

70 REM *********************** 

80 PRINT CHR$ <4)"BLQAD DHR.DRIVER": CALL 37999: HIMEM: 37 
507: REM CARICA/PREDISPONE/PROTEGGE 
90 PRINT CHR$ (4)"BL0AD SHAPE-D #143": PRINT CHR$ <4)"BL0 
AD SHAPE-U #144" 

100 CALL 37953: REM INIZIALIZZA 
110 HGR : CALL 37928: REM PULISCE SCHERMO 
120 POKE 49153,0: POKE 49234,0: REM 80STQRE/TUTT0 SCHERM 
0 

130 HC0LQR= 3: CALL 37517: GOTO 160: REM MODO HPLOT ON/FU 
NZ1 ONE EOR OFF 

140 POKE 49234,0:C = INT (X / 7): IF C / 2 = INT <C / 2) 
THEN POKE 49237.0: REM COMMUTA PAGINA 2 
150 XC = INT (C / 2) ♦ X / 7 - C:XC = INT <XC * 7 + .5): 
RETURN 

160 FOR XI = 3 TO 559 STEP 4:X = XI - 1: GOSUB 140: HPLOT X 
C,90 T0 XC,105:X = XI: GOSUB 140: HPLOT XC.90 TO XC,1Q5 
: NEXT : REM DISEGNA BARRIERA ORIZZONTALE ARANCIONE 
170 POKE 251.143: POKE 252,0: POKE 253,13: POKE 254,2: POKE 
255,0: REM SWUMATT/VB/HR/HL 
180 REM *** SCENDE *** 

190 FOR VB = 13 TO 88: CALL 37700: CALL 37577: NEXT VB: REM 
DRAWDN/GQD0UN- SCENDE FINO ALLA BARRIERA 
200 FOR VT = 76 TO 89: POKE 252.VT: CALL 37708: NEXT VT: RE 
M SPOSTA LA NAVE DIETRO LA BARRIERA 
210 POKE 251,144: REM 'DRAW' 

220 POKE 252,106: FOR VB = 106 TO 119: POKE 253,VB: CALL 37 
780: NEXT VB: REM PORTA LA MVE DA DIETRO LA BARRIERA 
230 FOR VB = 119 TO 191: CALL 37780: CALL 37577: NEXT VB: R 
EM DRAU/60D0UN- SCENDE FINO ALLA BASE DELLO SCHERMO 
240 REM *** SALE *** 

250 FOR VT = 178 TO 107 STEP - 1: CALL 37780: CALL 37568: 

NEXT VT: REM BRAU/GOUP-SALE FINO ALLA BARRIERA 
260 FOR VB = 119 TO 106 STEP - 1: POKE 253,VB: CALL 37780: 

NEXT VB: REM SPOSTA LA MVE DIETRO LA BARRIERA 
270 POKE 251,143: REM 'DRAUDN 

280 POKE 253.89: FOR VT = 89 TO 76 STEP - 1: POKE 252,VT: 
CALL 37708: NEXT VT: REM PORTA LA NAVE DA DIETRO LA B 
ARRI ERA 

290 FOR 'VT = 88 TO 0 STEP - 1 : CALL 37708: CALL 37568: NEX 
T ‘VT: REM DRAWDN/GOUP-SALE FINO ALLA SOMMITÀ' DELLO S 
CHERMO 

300 CALL 37507: CALL 37708: CALL 37517: REM EORON/CANCELL 
A/EOROFF 

310 CALL 37548: REM SPOSTA A DESTRA 
320 GOTO 190: REM RICOMINCIA 


delle linee 170-320. Salvatelo su di¬ 
schetto con il comando: 


BSAVE ANIMAZIONE. 

VELOCE,A$4000,L$B7 

Per provare la versione in codice 
macchina, cancellate le linee 170-320 
dal listato 1 e aggiungete questa nuova 
linea 170: 


170 PRINT CHR$ (4)"BLOAD 
ANIMAZIONE. VELOCE" : 
CALL 16384 


Scoprirete presto che adesso la vo¬ 
stra animazione è troppo veloce; ma 
sta bene così. Se si dovesse costruire 
un programma attorno a questa ani¬ 
mazione, con tutte le altre varie attivi¬ 
tà, la velocità sarebbe probabilmente 
più o meno quella giusta. 

Prima di smettere, date un’occhiata 
a un’altra dimostrazione di animazio¬ 
ne, che esegue un po’ di animazione 
orizzontale e fa ricorso alla routine 
REVDIR. A questo punto non avete 
ancora alcuna routine di spostamento 
scorrevole in senso orizzontale (af- 
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Listato 3 


10 

REM 

*********************** 

20 

REM 

* ANIMAZIONE.2 « 

30 

REM 

* DI ROBERT R. DEVINE * 

40 

REM 

* COPYRIGHT (0 1985 * 

50 

REM 

« BY APPLICANDO & * 

60 

REM 

* MICR0SPARC, INC. * 

70 

REM 

*********************** 

80 

PRINT 

CHR$ <4)“BL0AD DHR.DRIVER 1 


iLL 37999: H1MEM: 37 
507: REM CARICÀ/PRÈDISPONE/PROTEGGE 
90 CALI 37953: REM 1N1Z1AL1Z2A 
100 H8R : CALL 37928: REM PULISCE SCHERMO 
110 POKE 49153,0: POKE 49234,0: REM 80ST0RE/TUTTO SCHERMO 
120 HC0L0R= 3: GOTO 150 

130 POKE 49236,0:C = IMI (X / 7): IF C / 2 = INT (C / 2) 
THEN POKE 49237,0: REM COMMUTA PAGINA2 

140 XC = INT <C / 2) ♦ X / 7 - C:XC = INT (XC * 7 ♦ .5): 

RETURN 

150 FOR X = 14 TO 37: GOSUB 130: HPLOT XC.6: NEXT X 

160 FOR X = 38 TO 55: GOSUB 130: READ Y: READ Yl: HPLOT XC, 

Y TO XC Yl* NEXT X 

170 DATA é.12,0,12,1,11,1,11.2.10,2,10,3,9,3,9,3,9,4,8,4, 

8.4,8.5,/.5.7,5./.ó.ó.6.6,6.ó 

180 p6kÉ Jsl.M: PÒKÉ $5Ì,0: PÓKE 253,13: POKE 254,3: POKE 
255,0: CALL 37850: REM FRECCIA 
190 POKE 227,10: REM IMPOSTA Y1NCR 
200 CALL 37517: REM EOROFF 

210 FOR HR = 3 TO 39: CALL 37780: CALL 37548: NEXT HR: REM 
SPOSTA A DESTRA 

220 CALL 37624: REM INCERTE FRECCIA 
230 FOR HR = 39 TO 2 STEP - 1: CALL 37780: CALL 37559: NEX 
T HR: REM SPOSTA A SINISTRA 

240 CALL 37507: CALL 37780: CALL 37517: REM EORON-CANCELL 
A-EOROFF 

250 IF PEEK (253) = 183 THEN POKE 252,0: POKE 253,13: CAL 
L 37624: GOTO 210: REM RICOMINCIA ALLA SONUTA' - IW 
ERTE FRECCIA A ~> 

260 CALL 37605: CALL 37624: REM DISEGNA FRECCIA INVERTITA 
~> INCREMENTA RIGHE 
270 GOTO 210: REM RICOMINCIA 


Listato 2 


«4000 

.4086 







4000- 

A9 

8F 

85 

FB 

A9 

00 

85 

FC 

4008- 

85 

FF 

A9 

OD 

85 

FD 

A9 

02 

4010- 

85 

FE 

A9 

OD 

85 

E3 

20 

4C 

4018- 

93 

20 

C9 

92 

E6 

E3 

A5 

E3 

4020- 

C9 

59 

90 

F2 

A9 

4C 

85 

E3 

4028- 

85 

FC 

20 

4C 

93 

E6 

E3 

A5 

4030- 

E3 

C9 

5A 

90 

F3 

A9 

90 

85 

4038- 

FB 

A9 

6A 

85 

FC 

85 

E3 

85 

4040- 

FD 

20 

94 

93 

E6 

E3 

A5 

E3 

4048- 

C9 

78 

90 

F3 

A9 

77 

85 

E3 

4050- 

20 

94 

93 

20 

C9 

92 

E6 

E3 

4058- 

A5 

E3 

C9 

CO 

90 

F2 

A9 

B2 

4060- 

85 

E3 

20 

94 

93 

20 

CO 

92 

4068- 

C6 

E3 

A5 

E3 

C9 

6B 

B0 

F2 

4070- 

A9 

77 

85 

E3 

85 

FD 

20 

94 

4078- 

93 

C6 

E3 

A5 

E3 

C9 

6A 

B0 

4080- 

F3 

A9 

8F 

85 

FB 

A9 

59 

85 

4088- 

FD 

85 

E3 

85 

FC 

20 

4C 

93 

4090- 

C6 

E3 

A5 

E3 

C9 

4C 

B0 

F3 

4098- 

A9 

58 

85 

E3 

20 

4C 

93 

20 

40A0- 

CO 

92 

C6 

E3 

A5 

E3 

DO 

F4 

40A8- 

20 

83 

92 

20 

4C 

93 

20 

8D 

40BO- 

92 

20 

AC 

92 

4C 

12 

40 



fronterete questo aspetto nel prossimo 
articolo). Tuttavia spostando 14 punti 
(dot) orizzontali per volta potete otte¬ 
nere un’animazione ragionevole. 

Con questo demo (listato 3) dise¬ 
gnerete una freccia con comandi 
HPLOT, poi la metterete con SCAN 
in una tavola delle figure e infine la 
sposterete avanti e indietro attraverso 
lo schermo. A ogni estremità dello 
schermo invertirete con REVDIR la 
direzione della freccia perché punti 
nel verso giusto, poi la sposterete in 
giù di IO righe dopo ogni viaggio di 
andata e ritorno attraverso lo scher¬ 
mo. 

Le linee 80 — 170 inizializzano la 
doppia Hi —Res e disegnano sullo 
schermo la vostra freccia. Dato che 
non disponete ancora di alcuna bella 
routine di spostamento ad autocancel¬ 
lazione, la figura ha dietro di sè 14 
puntini vuoti (un indirizzo supplemen¬ 
tare), perché provvedano a tutte le 
mansioni di cancellazione. Questo si¬ 
gnifica che la larghezza effettiva della 
figura è di tre indirizzi; però è stata 
fatta larga quattro indirizzi per rende¬ 
re possibile la cancellazione. 

La linea 180 imposta tutti i parame¬ 
tri della figura e la mette con SCAN in 
una tavola. 

La linea 190 imposta YINCR in mo¬ 
do che possiamo spostare la figura in 
giù di 10 righe dopo ogni viaggio attra¬ 
verso lo schermo. 

La linea 200 disattiva le funzioni 
EOR di DRAW. 

La linea 210 sposta la figura verso 
destra attraverso lo schermo. Dopo 
ogni DRAW viene impiegata la routi¬ 
ne MOVERT per incrementare HR e 
HL. 


La linea 220 inverte la figura in mo¬ 
do che punti a sinistra. Noterete che 
essendo REVDIR una routine di dise¬ 
gno (DRAW) essa ha provveduto da 
sola a cancellare la vecchia freccia 
quando disegnava quella nuova. 

La linea 230 sposta la figura a sini¬ 
stra attraverso lo schermo. Qui è stata 
usata la routine MOVELF per decre- 
mentare HR e HL. 

Linea 240; ora che siete tornati dove 
avevate cominciato, cancellate la figu¬ 
ra dallo schermo. 

La linea 250 viene utilizzata per te¬ 
stare VB al fine di vedere se siete alla 
base dello schermo. In caso affermati¬ 
vo VT e VB vengono reimpostate per 
0 e 13. Poi la figura viene ridisegnata e 
invertita (in una sola operazione) alla 
sommità dello schermo utilizzando 
REVDIR. 

Linea 260; se non siete alla base del¬ 
lo schermo la figura viene spostata in 
giù di 10 righe utilizzando YINCRD 
per aggiungere 10 sia a VT sia a VB, e 
la figura viene invertita e ridisegnata 
sullo schermo. 

La comodità di REVDIR è che in 


qualche caso può risparmiarvi la fati¬ 
cosa necessità di tavole delle figure 
rivolte a destra e rivolte a sinistra. In 
questo test si è riusciti a visualizzare 
due frecce diverse sullo schermo pur 
avendo creato una sola tavola delle 
figure. 

Applicazioni 

Ora che disponete di un assortimen¬ 
to di diverse routine di disegno a dop¬ 
pia alta risoluzione, dovreste essere in 
grado di affrontare qualche animazio¬ 
ne personale, approfittando di alcuni 
dei vantaggi del codice macchina e del¬ 
la flessibilità dell’Applesoft senza do¬ 
vervi preoccupare di tutte le comples¬ 
sità dello schermo a doppia alta risolu¬ 
zione. Per una mappa dell’intero dri¬ 
ver DHR, considerate la figura 2. Ar¬ 
rivederci al prossimo articolo. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di qyesto e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- ¥ 
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appOBpratka 


Non si capiranno mai 

Compatibilità (s.f.): dicesi di due o più cose aventi le 
medesime caratteristiche (dal Dizionario enciclopedico 
di scienza e tecnica). 

Una banale citazione, che ha il pregio però di fornirci 
lo spunto per una chiacchierata illuminante su un tema 
caro a molti: Apple è compatibile con IBM? La rispo¬ 
sta, sia subito chiaro, è drasticamente "no". 

Molto spesso si confonde la compatibilità tra le due 
macchine con la possibilità che esse hanno di inter¬ 
scambiarsi i dati; infatti si può mettere in comunicazio¬ 
ne uno di questi computer con l’altro attraverso sistemi 
più o meno sofisticati (ma di questo parleremo più 
dettagliatamente nel prossimo numero), però non sarà 
mai possibile dire che le due macchine sono compatibi¬ 
li, perché il sistema operativo del Macintosh e quello 
degli Apple // sono totalmente diversi dall'MS-DOS 
dell’IBM, e quindi le due case non potranno mai inter¬ 
scambiarsi programmi applicativi, a meno di non modi¬ 
ficarli per le rispettive esigenze. 

Tuttavia qualcuno obietterà che non è vero, perché 
sul mercato americano è stato presentato un hardware 
particolare, chiamato "MacCHARLIE", capace di tra¬ 
sformare il Mac in una macchina IBM compatibile, 
come mostra l’immagine pubblicitaria di questo stru¬ 
mento. Tra le altre cose questa teoria viene propugnata 
anche da qualche rivenditore (leggero o non bene in¬ 
formato). 

Ebbene, non vi è nulla di più errato. Innanzitutto 
leggendo attentamente la locandina pubblicitaria si 
scopre che si può usare il Mac solo come terminale e 
che si possono trasferire file di dati (!) tra il Mac e un 
IBM, nulla di più. Inoltre, approfondendo la conoscen¬ 
za di questo hardware molto particolare si scopre che in 
realtà esso è un intero IBM, completo di 256K Ram di 
memoria eventualmente espandibili e due drive da 
360K, che sfrutta il solo video del Mac al posto di un 
qualsiasi altro monitor. 

Ovviamente unendo il Mac a quest’aggeggio si potrà 
sfruttare solo la parte IBM o solo la parte Mac, ma non 
si avrà mai Macintosh come macchina IBM compatibi¬ 
le. 

Anche senza Jazz 

Molti lettori, in possesso di software standard tipo 
Ms-World, Multiplan, Ms —Chart, MacWrite, 
Ms-File eccetera, chiedono come possono fare per 
avere le prestazioni di un Jazz senza dover rivendere 
tutto il loro software e acquistare il pacchetto integrato 
della Lotus. Ebbene si può simulare il Jazz con un 
nuovo prodotto software, chiamato "Switcher", che of¬ 
fre notevoli performance. 

Questo programma, che può funzionare solo con il 
Macintosh in versione 512K, provvede a suddividere la 
memoria del Mac in 4 settori in cui possono essere 
caricati vari applicativi; tuttavia per non "affaticare" il 
Macintosh ed evitare scherzi strani, conviene non cari¬ 
care più di tre applicativi per volta. 

Ma facciamo un esempio. Supponiamo di dover stu¬ 
diare una pianificazione di budget per il nostro ufficio 
con uno spreedsheat, di dover visualizzare i dati con un 
chart e infine di preparare una relazione contenente sia 
le tabelle che il grafico. Potremo con Switcher caricare 
in memoria contemporaneamente Multiplan, 


Ms-Chart e MacWrite, ed eseguire i lavori indicati 
nelle varie fasi passando da un programma all’altro con 
un semplice click del pulsante del mouse, e il gioco è 
fatto. 

Un’obiezione che potrebbe essere fatta è come fare a 
caricare tutti questi applicativi su dischetto. Molto sem¬ 
plice: innanzitutto bisogna crearsi un disco di boot 
contenente una cartella sistema completa e il program¬ 
ma Switcher, e poi caricare su un secondo dischetto i 
programmi applicativi interessati. Ovviamente tutto 
ciò presuppone il fatto che l’utente sia fornito anche del 
drive aggiuntivo per evitare stress da disk-jokey alla 
fine della sessione di lavoro. Per maggiori informazioni 
chiedete al vostro rivenditore di fiducia, o direttamente 
alia Apple Computer, MilanoFiori (Assago, MI). 

Evviva la carta 

Un’altra domanda posta da più di un lettore è: ".. .ma 
la stampante, mi può servire?". Ebbene chi afferma che 
il computer provocherà la scomparsa della carta si sba¬ 
glia di grosso. Anche Isaac Asimov, noto scrittore non 
solo di fantascienza, ha sostenuto in una conferenza di 
qualche anno fa l’avvento di un periodo aureo della 
documentazione cartacea. Per quanto il personal possa 
diventare un prezioso strumento di archiviazione dati, 
la periferica più utilizzata da questa macchina rimane 
sempre la stampante, usata per rielaborare tabelle, 
archivi, mailing list, grafici, testi, eccetera. Per questo 
motivo bisogna che ogni utente, piccolo o grande che 
sia, misuri l’uso che potrebbe trarre da questa periferi¬ 
ca per poter scegliere quella più adatta ai suoi scopi. 
L'unico consiglio che si può dare è quello di scegliere 
stampanti prodotte dalla stessa casa che fabbrica il 
personal di cui si è in possesso, per non incorrere in 
disavventure più o meno tragicomiche, ma soprattutto 
per garantire la massima funzionalità al proprio com¬ 
puter. 

Troppi dischi 

Con l’Apple //c e il Data Base si possono fare 
archiviazioni davvero monumentali. Qualcuno scrive 
però che la gestione dei file diventa di conseguenza 
troppo complessa. Un lettore di Roma, per esempio, 
ha archiviato con sette campi a titolo la sua vastissima 
biblioteca (6.500 volumi), ritrovandosi così ben sette 
dischetti da esplorare ogni volta che deve andare alla 
ricerca di un libro. 

Per il problema di grossi volumi di dati da memoriz¬ 
zare con l’Apple //c, dunque, conviene utilizzare il 
nuovo drive da 800 Kb, che è in distribuzione proprio 
in questi giorni. Poiché questo drive ha una capacità 
circa otto volte più elevata di quello standard, un 
catalogo come quello del lettore può essere contenu¬ 
to in un solo dischetto, naturalménte un 3,5" dell’ulti¬ 
ma generazione. 

Alfonso Scoppetta 


Applipratica è la rubrica di chi vuole utilizzare me¬ 
glio il computer, le periferiche e il software per risol¬ 
vere problemi professionali e aziendali. Quesiti e 
richieste di informazioni vanno indirizzati ad Appli¬ 
cando , rubrica Applipratica, Corso Monforte 39, 
20122 Milano. 
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Dedicata alla chimica, ecco una nuova puntata sul m u 

Progetto Seraphim. Questo programma, tratto dal SSui*. 
dischetto Acidi e basi, rappresenta un tipico esempio di APPLE //c 
impiego del calcolatore per integrare ed estendere le 
esercitazioni di laboratorio che, a meno di non snaturare 
la materia, dovrebbero sempre far parte integrante di un 
corso di chimica a qualunque livello. 


Curve di titolazione 


U no dei dischetti distribuiti dalla 
Divisione di Didattica Chimica 
della SCI contiene 5 programmi relati¬ 
vi agli acidi e alle basi; tre di questi 
programmi, e precisamente "Problemi 
acido base", "pH" e "Acidi deboli", so¬ 
no programmi generatori di esercizi su 


vari aspetti delle chimica in soluzione 
degli acidi e delle basi. Il programma 
"Forza degli acidi" dà invece informa¬ 
zioni su una serie di acidi ipotetici e 
chiede che vengano ordinati secondo 
la loro forza. Il programma "Curve di 
titolazione", infine, è stato scelto per 


una presentazione dettagliata in que¬ 
ste pagine. Vediamolo insieme. 

Il programma 

Non è purtroppo possibile fare ese¬ 
guire parecchie volte lo stesso tipo di 


Listato 


10 TEXT : HOME 
100 KE = l.E - 14 
110 HOME 
120 INVERSE 
130 PRINT 1 

IONE 

140 PRINT - 

YER 

■ 

150 PRINT • 

ET TECHNIQUES 
160 PRINT - 

0ME 13013 MARSEILLE FRANGE 


CURVE DI TITOLA? 

■ 

COPYRIGHT:ROGER ME 

FACULTE DES SCIENCES 

■ 

ST-JER 


170 FOR I = 1 TO 3500: NEXT 

171 HOME 

175 VTAB 10: PRINT 1 

TRADOTTO A CURA DI: G. ABITABILE. 

C. DELLA VOLPE. U. LEPORE GRUPPO DAE - FACOLTÀ' DI SCIE 
NZE UNIVERSITÀ' DI MPOLI 

176 FOR I = 1 TO 3000: NEXT 
180 N0RMAL 

190 HOME : VTAB 2: HTAB 10: PRINT '** MENU'PRINCIPALE **': 

PRINT 
200 PRINT 
210 KE = l.E - 14 

220 PRINT TAB< 5)'1-ACIDO DEBOLE ♦ BASE FORTE B : PRINT 
230 PRINT 

240 PRINT TAB< 5)"2-BIACID0 DEBOLE ♦ BASE FORTE": PRINT 
250 PRINT 

260 PRINT TAB( 5)"3-MISCELA DI DUE ACIDI DEBOLI": PRINT 
270 PRINT 

280 PRINT TAB< 5)"4-BASE DEBOLE ♦ ACIDO": PRINT 
290 PRINT 

300 PRINT TAB( 5)"5-TRIACIDO’: PRINT 
310 PRINT 

320 PRINT TAB< 5)"6-FINE DEL PROCR^IA": PRINT 
330 FLASH 

340 VTAB 24: HTAB 5: PRINT "SCEGLIETE UN NUMERO PER CQNTINU 


ARE": GET B7.: PRINT 
350 NORMAL 

360 IF BX < 1 OR BX ) 6 THEN 190 

370 0N BX GOSUB 390.1290,2180,2920,3750 

380 IF BX = 6 GOTO 4430 

390 HOME 

400 IWERSE 

410 PRINT CHR$ (14):: HTAB 10: PRINT "* ACIDO DEBOLE *': P 
RINT 

420 NORMAL 

430 PRINT TAB( 15)"** MENU' **": PRINT : PRINT 
440 PRINT TAB< 5)"1-SPIEGAZIONI PRINT : PRINT 
450 PRINT TAB< 5)"2-RAPPRESENTAZIONE DELLA CURVA ": PRINT 
: PRINT 

460 PRINT TAB( 5)"3-RAPPRESENTAZIONE DELLA CURVA E 
RISULTATI NUMERICI": PRINT : PRINT 
470 PRINT TAB( 5)"4-STMPA DELLA CURVA": PRINT TAB< 7)"(A 
LCUNE STAMPANTI)' 

480 PRINT 

490 PRINT TAB< 5)"5-RIT0RN0 AL MENU'PRINCIPALE": PRINT : P 
RINT : CALL - 922 
500 FLASH 

510 HTAB 5: PRINT "SCEGLIETE UN NUMERO PER CONTINUARE": GET 
AX: HOME : PRINT : PRINT : PRINT 
520 NORMAL 

530 IF AX < 1 OR AX > 5 THEN 430 
540 0N AX GOSUB 570,870.870.1270 
550 IF AX = 5 THEN GOTO 190 
560 GOTO 430 
570 HOME : VTAB 8 
580 PRINT CHR$ (14)* 

590 PRINT TAB< 13)'** NEUTRALIZZAZIONE **": PRINT : PRINT 
: PRINT : CALL - 922 

600 PRINT CHR$ (14):: PRINT TAB( 4)"DI UN ACIDO DEBOLE CO 
N UNA BASE FORTE*: PRINT : PRINT : CALL - 922: CALL - 
922: CALL - 922 

610 VTAB 22: HTAB 4: PRINT "BATTI UN TASTO PER CONTINUARE": 
PRINT : GET A$: HOME 

620 VTAB 5: PRINT "SI E' DETERMINATO IL NUMERO DI MOLI DI 
MOLECOLE DI BASE CHE BISOGW AGGIUNGERE" 

630 PRINT "AD UN LITRO DELLA SOLUZIONE PER OTTENE- RE UW 
SOLUZIONE DI PH DATO:' 

640 PRINT 

650 PRINT TAB( 10)"B = K*M / H+K ♦ KU/H -H" : PRINT : CALL 
- 922: CALL - 922: CALL - 922 
660 HTAB 4: PRINT "BATTI UN TASTO PER CONTINUARE": PRINT : 
GET A*: HOME 

670 VTAB 5: PRINT "B = CONCENTRAZIONE DELLA BASE AGGIUNTA 
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Il progetto Seraphim è sorto negli Stati Uniti allo scopo di diffondere e 
stimolare l’impiego del computer nell’insegnamento della chimica. Nel proget¬ 
to si è inserita la Divisione di Didattica Chimica, che ne cura la distribuzione 
nelle scuole italiane interessate. L’intero software, costituito da 44 programmi 
didattici e da 10 utility, è scritto per calcolatori Apple. L’iniziativa non si 
prefigge scopi di lucro: i dischetti, contenenti diversi programmi, sono in 
vendita a lire 7.000 -I- IVA ciascuno. Per ogni ulteriore informazione sul 
progetto e sulle modalità di acquisto dei dischetti rivolgersi al prof. Giuseppe 
Innorta. Istituto Chimico "Ciamician", via Selmi2, 40126 Bologna. Iprogram¬ 
mi pubblicati da Applicando sono invece aggiunti nei dischetti del Disk Servi¬ 
ce, senza aggiunta di prezzo. 


esercitazione allo stesso studente; 
quando poi, come nel caso delle titola¬ 
zioni acido—base, sarebbe interessan¬ 
te avere risultati sperimentali in diver¬ 
se condizioni, ecco che il calcolatore 
può rappresentare un valido ausilio di¬ 
dattico. Infatti, dopo aver appreso la 
teoria delle titolazioni e dopo avere 
fatto la indispensabile pratica di labo¬ 
ratorio, uno studente può con questo 
programma rendersi conto dell’effetto 
che parametri diversi come la natura 
dell’acido, le costanti di dissociazione 
e la concentrazione hanno sulle curve 
di titolazione; tutto ciò in un tempo 
breve e senza la necessità di allestire 
preventivamente i materiali adatti per 
ogni singolo caso da studiare. 

Il programma presenta un menù 
principale con cinque opzioni che cor¬ 
rispondono a cinque diverse situazioni 
sperimentali, per ciascuna delle quali 
viene presentato un menù secondario 
che permette di avere spiegazioni, di 
vedere la curva di titolazione, di avere 
i valori numerici di pH in funzione del 


numero di moli di base aggiunta e di 
stampare la curva di titolazione. Al¬ 
l’interno di ciascuna opzione l’utilizza- 
tore sceglie il valore di ciascuna co¬ 
stante di dissociazione e la concentra¬ 
zione dell’acido. 

Le curve di titolazione vengono co¬ 
struite mediante un ciclo for—next al¬ 
l’interno del quale si assegna un valore 
di pH, incrementato volta per volta di 
0.25 unità, e viene calcolato il numero 
di moli di base che è necessario ag¬ 


giungere a un litro di soluzione di aci¬ 
do per ottenere il valore di pH impo¬ 
stato dal ciclo; una semplice istruzione 
HPLOT TO permette il tracciamento 
della curva. Con questo metodo non è 
necessario ricorrere a equazioni di or¬ 
dine superiore a uno o alle solite ap¬ 
prossimazioni cui si fa ricorso trattan¬ 
do questo argomento nel modo classi¬ 
co e cioè calcolando il valore di pH in 
funzione del numero di moli di base 
aggiunta. 


IN MOLI/LITRQ" 

680 PRINT 

690 PRINT '^CONCENTRAZIONE DEGLI IONI IDR0SS0NI0': PRINT 
700 PRINT "A = CONCENTRAZIONE DELLA BASE CONIUGATA ALL'EQUI 
LIBRI0.': PRINT 

710 HTAB 10: PRINT 1 A = K*M / H + K": PRINT 
720 PRINT 'K = COSTANTE DI DISSOCIAZIONE DELL'ACIDO': PRINT 
: PRINT 'RIPRODOTTO IONICO DELL'ACQUA': PRINT 
730 PRINT -M = MOLARITA'DELL'ACIDO': PRINT : CALL - 922: C 
ALL - 922 

740 VTA8 23: HTAB 4: PRINT 'BATTI UN TASTO PER CONTINUARE': 
PRINT : GET Al: HOME 

750 VTAB 5: PRINT 'SI PUÒ' COSI' DETERMINARE LA CURVA DI 
TITOLAZIONE USMD0 UW SOLA RELAZIONE' 

760 PRINT 'E SENZA FARE APPROSSIMAZIONI': PRINT 
770 PRINT 'A META' DELLA NEUTRALIZZAZIONE LA CON- CENTRAZI 
ONE DELLA BASE CONIUGATA DEVE ESSERE UGUALE ALLA C0NC 
ENTRAZI ONE DEL-' 

780 PRINT 'L'ACIDO.' 

790 PRINT 

800 PRINT CHRI (14): 

810 PRINT '( AH ) = < A- ) E PH = PKA ' 

820 PRINT 

830 PRINT 'ALLA NEUTRALIZZAZIONE-CIOÈ' AL PUNTO DI EQUIVALE 
NZA-LA CONCENTRAZIONE IN BASE' 

840 PRINT 'E' UGUALE ALLA CONCENTRAZIONE INIZIALE DELL'ACI 
DO': PRINT : PRINT 

850 HTAB 4: PRINT "BATTETE UN TASTO PER CONTINUARE': PRINT 
: GET A*: HOME 
860 RETURN 

870 CALL - 922: CALL - 922: CALL - 922: CALL - 922: PRI 
NT 'SULLA CURVA ABBIAMO I VALORIA DI PH IN ORDINATE E I 
L NUMERO DI MOLI' 

880 PRINT 'DI MOLECOLE DI BASE AGGIUNTE IN ASCISSA' 

890 PRINT 

900 INPUT ' DATE LA COSTANTE DI DISSOCIAZIONE DELL'ACIDO E 
LA SUA CONCENTRAZIONE ':K.M: PRINT : PRINT 
910 INPUT ' INDICATE IL NOME DEL COMPOSTO CHE STUDIATE :';B 
I 

920 PRINT 

930 PRINT CHRI (14);: PRINT 'CURVA DI NEUTRALIZZAZIONE:'; 
940 PRINT CHRI (14);: PRINT 8$ 

950 HGR : HC0L0R= 3: PRINT 
960 HPLOT 0,0 TO 0.159 TO 279,159 

970 FOR X = 27 T0 279 STEP 27: HPLOT X.159 T0 X.154: NEXT : 

FOR Y = 144 TO 1 STEP - 15: HPLOT 0.Y TO 5,Y: NEXT 
980 X = 0:Y = 159 - 6.25 * ( - .4343 * LOG (K) - .4343 * 
LOG (M)) 


990 HPLOT X,Y 

1000 FOR PH = .5 * < - .4343 » LOG (K) - .4343 * LOG (M)) 
TO 12.5 STEP .25 
1010 Y = 159 - PH * 12.5 
1020 U = 279 / (M * 1.7) 

1030 H = EXP < - 2.303 * PH) 

1040 B = <K * M) / (K ♦ H) ♦ (KE / H) - H 
1050 X = ABS (B * U) 

1060 IF X ) 279 THEN X = 279 
1070 HPLOT TO X,Y 
1080 NEXT 

1090 FOR I = 1 TO 1500: NEXT 

1100 PRINT 'BATTETE UN TASTO PER CONTINUARE" 

1110 GET Al: TEXT : HOME 
1120 IF AX = 2 THEN RETURN 

1130 FOR PH = .5 * < - .4343 * LOG (K) - .4343 * LOG (M)) 
TO 12.5 STEP .25 

1140 PH = < INT (PH * 1000) / 1000) 

1150 H = EXP ( - 2.303 * PH) 

1160 B = (K * M) / (K ♦ H) ♦ (KE / H) - H 
1170 B = ( INT (B * 10000) / 10000) 

1180 A = (K * M) / (K ♦ H) 

1190 A = ( INT (A * 1.E4) / 1.E4) 

1200 AH = M - A 

1210 PRINT TA8( 5) 'PER PH = ' ;PH; ' H = ' ;H ; ' B=';B 
1220 PRINT TAB( 5)'AH = ';AHp A = ' ;A: PRINT : PRINT 
1230 NEXT 

1240 HTAB 4: VTAB 24: PRINT 'BATTETE UN TASTO PER CONTINUAR 
E': GET Al: HOME 
1250 RETURN 
1260 PRINT : PRINT 

1270 PR# 1: POKE 1913,1: PRINT CHRI (17): PR# 0 
1280 RETURN 
1290 HOME 
1300 INVERSE 

1310 PRINT CHRI (14);: HTAB 15: PRINT 'BIACIDO DEBOLE': PR 
INT 

1320 NORMAL 

1330 PRINT TAB( 15)'** MENU' **': PRINT : PRINT 
1340 PRINT TAB( 5)'l- SPIEGAZIONI ' 

1350 PRINT : PRINT 

1360 PRINT TAB( 5)'2- RAPPRESENTAZIONE DELLA CURVA ': PRIN 
*T : PRINT 

1370 PRINT TAB< 5)'3-RAPPRESENTAZ10NE DELLA CURVA E 
RISULTATI NUMERICI': PRINT : PRINT 
1380 PRINT TAB( 5)'4-STtf1PA DELLA CURVA': PRINT TAB( 7)'( 
ALCUNE STAMPANTI)' 

1390 PRINT 

(continua) 
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1400 PRINT TAB< 5)'5-RIT0RN0 AL MENU' PRINCIPALE": PRINT 
1410 VTAB 23: HTAB 5: PRINT 'SCEGLIETE UN NUMERO PER CONTIN 
UARE': GET AX: HOME : PRINT 
1420 PRINT 

1430 IF AX < 1 OR AX > 5 THEN GOTO 1330 

1440 QN AX GOSUB 1470.1810.1810,2160 

1450 IF A"< = 5 THEN GOTO 190 

1460 GOTO 1330 

1470 HOME : VTAB 10 

1480 PRINT CHRI (14); 

1490 PRINT TAB( 13)'#* NEUTRALIZZAZIONE **' 

1500 VTAB 13 

1510 PRINT CHRI (14);: PRINT 'DI UN BIACIOO DEBOLE C0T4 UW 
BASE FORTE* 

* 1520 VTAB 22: HTAB 4: PRINT 'BATTI UN TASTO PER CONTINUARE' 
: PRINT : GET AS: HOME 

1530 VTAB 5: PRINT 'SI E' DETERMINATO IL NUMERO DI MOLI DI 
MOLECOLE DI BASE CHE OCCORRE AGGIUNGERE* 

1540 PRINT 'A UN LITRO DELLA SOLUZIONE PER OTTENERE UW S 
OLUZIONE DI PH DATO: * 

1550 PRINT 

1560 PRINT 'B = CONCENTRAZIONE DELLA BASE AGGIUNTA IN MOLI 
/LITRO' 

1570 PRINT 

1580 PRINT 'B = HA- 4 2A2- ♦ OH- - H* ' 

1590 PRINT 

1600 PRINT 'B = M*(K1*H*2*K1#K2) / H‘2+K1*H+K1*K2) ♦ KM/H - 
H' : PRINT 

1610 PRINT 'M=MOLARITA y INIZIALE DELL 'ACIDO=H2A 4 AH- 4 A2-' 
: PRINT 

- 1620 VTAB 24: HTAB 4: PRINT 'BATTI UN TASTO PER CONTINUARE' 

: PRINT : GET A$: HOME 

1630 VTAB 2: PRINT 'H2A = CONCENTRAZIONE DEL B1ACIDO ALL'E¬ 
QUILIBRIO =(M*H‘2) / <H*2 +K1 *H 4K1*K2)': PRINT 
1640 PRINT 'ftt- CONCENTRAZIONE DELL'ANIONE ALL'E- QUIL1BR 
I0=(M*K1*H) / (H*2 + K1*H 4R1*K2)': PRINT 
1650 PRINT ' A2- CONCENTRAZIONE DELLA BASE CONIU- GATA = 
M*K1*K2 / H*2 4 K1*H 4 K1*K2': PRINT 
1660 PRINT ' H = CQNCENTR. DEGLI IONI IDROSSONIO' 

1670 PRINT 

1680 PRINT 'K1 E K2 SONO LE COSTANTI DI DISSOCIAZIO-NE DEL 
BIACIDO': PRINT 

1690 PRINT 'KM = PRODOTTO IONICO DELL'ACQUA': PRINT 

- 1700 VTAB 22: HTAB 4: PRINT 'BATTI UN TASTO PER CONTINUARE' 

: PRINT : GET Al: HOME 

1710 VTAB 5: PRINT 'SI PUÒ' COSI' DETERMINARE LA CURVA DI 
TITOLAZIONE UTILIZZAMI Itti SOLA RELA-' 

1720 PRINT 'ZIONE E SENZA FARE APPROSSAZIONI 8 : PRINT 
1730 PRINT 'QUANDO LE COSTANTI DI IONIZZAZIONE SONO NETTANE 
NTE DIFFERENTI SI OSSERVANO SUL-' 

1740 PRINT 'LA CURVA DI NEUTRALIZZAZIONE DUE PUNTI DI EQUI 
VALENZA.': PRINT 

1750 PRINT 'IL BIACIDO SI TRASFORMA QUASI COMPLETA- MENTE I 
N ANIONE <M-).': PRINT 

1760 PRINT 'PRIMA CHE UM CONCENTRAZIONE APPREZZA- BILE D 
I ANIONF A?- APPAIA SF IF PO-" 

1770 PRINT 'STANTI SONO OlCINE SI OSSERVERÀ'SULLA * 

1780 PRINT 'CURVA UN UNICO PUNTO DI EQUIVALENZA': PRINT 
1790 VTAB 24: HTAB 4: PRINT 'BATTI UN TASTO PER CONTINUARE' 
: PRINT : GET A$: HOME 
1800 RETURN 

1810 VTAB 10: PRINT 'SULLA CURVA ABBIAMO RAPPRESENTATO I VA 
- LORI DI PH IN ORDINATE ED IL NUMERO' 

1820 PRINT 'DI MOLI DI MOLECOLE DI BASE IN ASCISSA': PRINT 
1830 VTAB 15: INPUT 'DATE I VALORI DELLE DUE COSTANTI E LA 
CONCENTRAZIONE DI BIACIDO K1,K2,M ';K1,K2,M 
1840 PRINT 

1850 INPUT 'PRECISATE IL NOME DEL BIACIDO:';BI 
1860 PRINT 

1JB70 PRINT 'CURVA DI NEUTRALIZZAZIONE:" ;BI 
1880 HGR : HCOLOR= 3 
1890 HPLOT 0,0 TO 0.159 TO 279,159 
1900 FOR X = 27 TO 279 STEP 27: HPLOT X.159 TO X,154: NEXT 
: FOR Y = 144 TO 1 STEP - 15: HPLOT O.Y TO 5,Y: NEXT 

1910 X = 0:Y = 159 - 6.25 * ( - .4343 * LOG (Kl) - .4343 * 

LOG (M) 4 .5) 

1920 HPLOT X,Y 

1930 FOR PH = .5 * ( - .4343 » LOG (Kl) - .4343 * LOG (M) 
4 .5) TO 12.5 STEP .25 
1940 Y = 159 - PH » 12.5:U = 279 / (3 * M) 

1950 IF Y < 0 THEN Y = 0 
1960 H = EXP ( - 2.303 * PH) 

1970 B = (M * (Kl # H 4 2 * Kl * K2)) /(H‘2+K1*H4K 

1 * K2) 4 (KE / H) - H 


1980 X = ABS (U * B): IF X > 279 THEN X = 279 
1990 HPLOT TO X.Y: NEXT 

- 2000 HTAB 4: VTA8 24: PRINT 'BATTI UN TASTO ': GET Al: TEXT 

: HOME 

2010 IF AX = 2 THEN RETURN 

2020 FOR PH = .5 * ( - .4343 * LOG (Kl) - .4343 * LOG (M) 
4 .5) TO 12 STEP . 25:H = EXP ( - 2.303 * PH)sB = (M 
* (Kl # H 4 2 * Kl * K2)) / <H * 2 ♦ Kl # H ♦ Kl # K2> 
4 (KE / H) - H 

2030 H2A = (M * H ‘ 2) / (H ‘ 2 ♦ Kl * H 4 Kl * K2) 

2040 HA = (M * Kl * H) / (H * 2 4 Kl * H 4 Kl * K2) 

2050 HA = ( INT (HA * 1.E7) / 1.E7) 

2060 A - (M * Kl * K2) / (H ‘ 2 + Kl * H + Kl * K2) 

2070 A =( INT (A * 1.E5) / 1.E5) 

2080 H2A = ( INT (H2A * 1.E10) / 1.E10) 

2090 PH = ( INT (PH * 1000) / 1000) 

2100 B = ( INT (B * 1E5) / 1.E5) 

2110 PRINT TA8< 5)'PER PH= ';PH;' B=';B;' H2A=';H2A: PRI 
NT 

2120 PRINT TAB( 5)'HA=';HA;' A2=';A: PRINT : PRINT 
2130 NEXT 

-**2140 VTAB 24: HTAB 4: PRINT 'BATTI UN TASTO': GET Al: PRINT 
: HOME 
2150 RETURN 

2160 PR# 1: POKE 1913,1: PRINT CHRI (17): PR# 0 
2170 RETURN 
2180 HOME 
2190 INVERSE 

2200 PRIffT CHRI (14);: HTAB 10: PRIffT 'MISCELA DI DUE ACID 
I': PRINT 
2210 NORMAL 

2220 PRIffT TAB( 15)'** MENU' **': PRINT : PRINT 
2230 PRINT TAB( 5)'1-SPIEGAZIONI ': PRIffT : PRINT 
2240 PRINT TAB< 5) ' 2-RAPPRESENTAZIONE DELLA CURVA ': PRINT 
: PRINT 

2250 PRINT TAB< 5)'3-RAPPRESENTAZIONE DELLA CURVA E 
RISULTATI NUMERICI': PRINT : PRINT 

2260 PRINT TAB( 5)'4-STAMPA DELLA CURVA': PRINT TAB( 7)'( 
ALCUNE STAMPANTI)' 

2261 PRINT 

2270 PRIffT TAB( 5)'5-RIT0RN0 AL MENU'PRINCIPALE* : PRINT : 
PRINT 

2280 VTAB 23: HTAB 4: PRINT 'SCEGLIETE UN NUMERO PER CONTIN 
UARE ': GET AX: PRINT : HOME 
2290 PRINT 

2300 IF AX < 1 OR AX > 5 THEN GOTO 2220 
2310 ON AX GOSUB 2340.2530.2530,2900 
2320 IF AX = 5 THEN GOTO 190 
2330 GOTO 2220 
2340 HOME 

2350 PRINT CHRI (14); 

2360 VTAB 9: HTAB 8: PRINT '** NEUTRALIZZAZIONE **' 

2370 PRINT CHRI (14):: VTAB 13: HTAB 4: PRINT '* DI UNA MI 
SCELA DI DUE ACIDI *': PRINT : PRINT 
2380 VTAB 19: PRINT 'PER UW MISCELA DI DUE ACIDI DEBOLI SI 
OTTIENE UNA RELAZIONE ANALOGA A' 

2390 PRIffT 'QUELLA DEDOTTA PRECEDENTEMENTE PER LA NEUTRAL 
IZZAZIONE DI UN ACIDO DEBOLE': PRINT 

- 2400 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO': GET Al: TEXT 

: HOME 

2410 VTAB 4: PRINT 'B = CONCENTRAZIONE DELLA BASE AGGIUNTA 
IN MQLI/LITRO': PRINT 

2420 HTAB 5: PRIffT 'B4 = Al- 4 A2- 4 OH- 4 H4': PRINT 
2430 HTAB 5: PRINT 'B4 = (Kl * MI) / (Kl 4 H) 4 (K2 * M2) / 
(K2 4 H) 4 (KM / H) - H': PRIffT 
2440 PRINT ' K1.K2 E M1.M2 RAPPRESENTANO LE COSTM- TI E L 
E MOLARITA DEI DUE ACIDI': PRINT 
2450 PRINT 'Al- E A2- CORRISPONDONO ALLE DUE BASI CONIUGA 
TE': PRINT 

2460 'VTAB 24: HTAB 4: PRINT 'BATTI UN TASTO': GET Al: PRINT 
: HOME 
2470 VTAB 5 

2480 PRINT 'COME PER UN BIACIDO, SE LE 2 COSTANTI f*WO D 
EI VALORI VICINI SI" 

2490 PRINT 'OSSERVA SULLA CURVA DI NEUTRALIZZAZIONE UN SOL 
PUNTO DI EQUIVALENZA.': PRINT 

2500 PRINT 'SE LE COSTANTI SONO MOLTO DIFFERENTI SI OSSE 
RVANO DUE PUNTI DI EQUIVALENZA": PRINT : PRINT 
2510 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO': GET Al: PRINT 
: HOME 
2520 RETURN 

2530 VTAB 10: PRINT 'SULLA CURVA ABBIAMO RAPPRESENTATO I VA 
- LORI DI PH IN ORDINATE E IL NUMERO* 

2540 PRIffT 'DI MOLECOLE DI BASE AGGIUNTE IN ASCISSA': PRINT 
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2550 VTAB 15: INPUT 'INDICATE I VALORI DELLE 2 COSTANTI E 
DELLE 2 MOLARITA':K1,K2,M1,M2 *;K1,K2,M1,M2: PRINT 
CALL - 922 

2560 INPUT "DATE I NOMI DEI DUE ACIDI'jB* 

2570 PRINT CHR* (14);: PRINT "CURVA Di NEUTRALIZZAZIONE" 
2580 PRINT CHRI (14);: PRINT B$ 

2590 PRINT 
2600 H6R : HCOLOR= 3 
2610 HPLOT 0,0 TO 0.159 TO 279,159 
2620 FOR X = 27 TO 279 STEP 27: HPLOT X.159 TO X,154: NEXT 

: FOR Y = 144 TO 1 STEP - 15: HPLOT O.Y TO 5,Y: NEXT 

2630 X = 0:Y = 159 - 6.25 * ( - .4343 * LOG (Kl) - .4343 * 

LOG (MI) ♦ .5) 

2640 HPLOT X,Y 

2650 FOR PH = .5 * < - .4343 * LOG (Kl) - .4343 * LOG (MI 
)) ♦ .5 TO 12.5 STEP .25 
2660 Y = 159 * PH * 12.5 

2670 U = 279 / ((MI 4 M2) * 1.5) 

2680 H = EXP ( - 2.303 * PH) 

2690 B = (Kl * MI) / (Kl ♦ H) + (K2 * M2) / (K2 4 H) 4 <KE 
/ H) - H 

2700 X = ABS (B * U) 

2710 IF X > 279 THEN X = 279 
2720 HPLOT TO X,Y 
2730 NEXT 

2740 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A*: TEXT 
: HOME 

2750 IF AX = 2 THEN RETURN 

2760 FOR PH = .5 * < - .4343 * LOG (Kl) - .4343 * LOG (MI 
)) 4 .5 TO 12.5 STEP .25 
2770 H = EXP ( - 2.303 * PH) 

2780 PH = ( INT (PH * 1000) / 1000) 

2790 B = (Kl * MI) / (Kl 4 H) 4 (K2 * M2) / (K2 4 H) 4 (KE 
/ H) - H 

2800 B = ( INT (B * 1.E4) / 1.E4) 

2810 Al = (Kl * MI) / (H 4 Kl) 

2820 Al = ( INT (Al * 1.E6) / 1.E6) 

2830 A2 = (K2 * M2) / (H 4 K2) 

2840 A2 = ( INT (A2 * 1.E5) / 1.E5) 

2850 HTAB 10: PRINT 'PER PH = ':PH;' Al = ':A1 

2860 HTAB 10: PRINT 'A2 = ";A2;‘ B = 1 ;B: PRINT : PRINT 

2870 NEXT 

2880 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A$: TEXT 
: HOME 
2890 RETURN 

2900 PR# 1: POKE 1913,1: PRINT CHRI (17): PR# 0 
2910 RETURN 
2920 HOME 
2930 IWERSE 

2940 PRINT CHR$ (14):: HTAB 10: PRINT "BASE DEB0LE4ACID0 1 : 

PRINT 
2950 NORMAL 

2960 PRINT TAB< 15)"** MENU' PRINT : PRINT 
2970 PRINT TAB( 5)"1-SPIEGAZIONI ": PRINT : PRINT 
2980 PRINT TAB( 5)"2-RAPPRESENTAZ10NE DELLA CURVA ": PRINT 
: PRINT 

2990 PRINT TAB( 5) 1 3-RAPPRESENTA21ONE DELLA CURVA E 
RISULTATI NUMERICI 1 : PRINT : PRINT 
3000 PRINT TAB( 5)"4-ST^PA DELLA CURVA 1 : PRINT TAB( 5) B ( 
ALCUNE STAMPANTI) 1 : PRINT 

3010 PRINT TAB< 5)"5-RIT0RN0 AL MENU"PRINC1PALE': PRINT : 
PRINT 

3020 VTAB 23: HTAB 4: PRINT "SCEGLIETE UN NUMERO PER CONTIN 
UARE B : GET AX: PRINT : HOME 
3030 1F AX < 1 OR AX ) 5 THEN GOTO 2960 
3040 PRINT 

3050 ON AX GOSUB 3080.3310,3310,3730 
3060 IF AX = 5 THEN GOTO 190 
3070 GOTO 2960 
3080 REM 

3090 PRINT CHR$ (14): 

3100 VTAB 9: HTAB 8: PRINT '** NEUTRALIZZAZIONE **' 

3110 VTAB 13: HTAB 5: PRINT **DI UN ACIDO CON UM BASE DEBO 
Le* 1 • print 

3120 VTAB*18: PRINT B S1 CONSIDERA LA NEUTRALIZZAZIONE DI UN 
ACIDO FORTE/DEBOLE CON UW BASE DEBOLE': PRINT 
3130 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A$: TEXT 
: HOME 

3140 PRINT CHR* (14): 

3150 VTAB 5: HTAB 5: PRINT 'B 4 H20 <=> BH4 4 OH- 1 : PRINT 
: PRINT 
3160 PRINT 

3170 HTAB 2: PRINT 1 K = KU/K1 = ( BH+ )*< OH- ) / ( B )": 
PRINT 


3180 HTAB 2: PRINT 1 KU / Kl = (BH 4 ) * (KU) / <H * B) 1 : P 
RINT 

3190 HTAB 2: PRINT 1 MI = B 4 BH4 1 : PRINT : PRINT 
3200 PRINT 'MI RAPPRESENTA IL NUMERO DI MOLECOLE DI BASE CH 
E BISOGNA AGGIUNGERE AD UN' 

3210 PRINT 'LITRO DI SOLUZIONE ACIDA PER AVERE UNA SOLUZIO 
NE DI PH DATO 1 : PRINT 

3220 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A$: TEXT 
: HOME 

3230 VTAB 5: HTAB 2: PRINT B M1 = (K*H 4 KU) / (K*H) * (M2 4 
(KU/H) - H ) 1 : PRINT 

3240 PRINT ' Kl = COSTANTE DELLA COPPIA ACIDO-BASE: BH+ / B 
': PRINT 

3250 HTAB 2: PRINT 1 BH4 = K2*M2 / H4 K2 4 KU/H - H 1 : PRIN 
T : PRINT 

3260 PRINT *K2,M2 RAPPRESENTANO LA COSTATE DI IO- NIZZAZI 
ONE E LA MOLARITA'DELL'ACIDO 1 

3270 PRINT : PRINT 'CONSIDERANDO LA CONCENTRAZIONE DI IONI 
H4 COME UW VARIABILE INDIPENDENTE' 

3280 PRINT 'E' FACILE DETERMINARE LA CURVA DI NEU- TRAL1ZZ 
AZIONE. 1 

- 3290 HTAB 4: VTAB 24: PRINT "BATTI UN TASTO 1 : GET Al: TEXT 

: HOME 
3300 RETURN 

3310 VTAB 10: PRINT 'SULLA CURVA ABBIAMO RAPPRESENTATO IL P 
H SULLE ORDINATE E IL NUMERO DI MOLI' 

3320 PRINT 'DI MOLECOLE DI BASE AGGIUNTE IN ASCISSA 1 
3330 PRINT 

3340 VTAB 15: INPUT "DATE LA COSTANTE DELLA COPPIA ACIDO- 
BASE* BH+/B = Kl 1 ■ Kl* PRINT 

3350 INPUT 'SPECIFICATE \À COSWTE DI IONIZZAZIONE DELL'AC 
IDO,LA SUA MOLARITA':K2,M2";K2,M2 
3360 PRINT , 

3370 K = KE / Kl: PRINT 

3380 INPUT ' SPECIFICATE I NOMI DELL'ACIDO E DELLA BASE 1 ; 

B$ 

3390 PRINT CHR* (14);: PRINT 'CURVA DI NEUTRALIZZAZIONE' 

3400 PRINT CHR$ (14);: PRINT B$ 

3410 PRINT 
3420 HGR : HCOLOR= 3 
3430 HPLOT 0,0 TO 0.159 TO 279,159 
3440 FOR X = 27 TO 279 STEP 27: HPLOT X.159 TO X, 154: NEXT 

: FOR Y = 144 TO 1 STEP - 15: HPLOT O.Y TO 5,Y: NEXT 

3450 X = 0:Y = 159 - 12.5 * ( - .4343 * LOG (M2)) 

3460 HPLOT X,Y 

3470 IF K2 > .1 THEN GOTO 3500 

3480 FOR PH = .5 * ( - .4343 * LOG (K2) - .4343 * LOG (M2 
)) TO 9.5 STEP .25 
3490 GOTO 3510 

3500 FOR PH = - .4343 * LOG (M2) TO 9.5 STEP .25 
3510 Y = 159 - PH * 12.5 
3520 U = (279 / (2 * M2)) 

3530 H = EXP ( - 2.303 * PH) 

3540 MI = ((K * H + KE) / (K * H)) * (<K2 ♦ M2) / (K2 ♦ H) 

+ (KE / H) - H) 

3550 X = ABS (MI * U) 

3560 IF X ) 279 THEN X = 279 
3570 HPLOT TO X,Y 
3580 NEXT 

- 3590 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A*: TEXT 

: HOME 

3600 IF AX = 2 THEN RETURN 
3610 IF K2 ) .1 THEN GOTO 3640 

3620 FOR PH = .5 * ( - .4343 * LOG (K2) - .4343 * LOG <M2 
)) TO 11 STEP .25 
3630 GOTO 3660 

3640 FOR PH = - .4343 * LOG (M2) TO 11 STEP .25 
3650 PH = ( INT (PH * 1000) / 1000) 

3660 H = EXP ( - 2.303 * PH) 

3670 MI = <<K * H ♦ KE) / (K * H)) * <<K2 * M2) / (K2 ♦ H) 

4 (KE / H) - H) 

3680 MI = ( INTXM1 * 1.E4) / 1.E4) 

3690 HTAB 5: PRINT 'PER PH = 1 ;PH;' MI = ';M1: PRINT 
3700 NEXT 

-3710 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A*: TEXT 
: HOME 
3720 RETURN 

3730 PR# 1: POKE 1913,1: PRINT CHR* (17): PR# 0 
3740* RETURN 
3750 HOME 

3760 PRINT CHRI (14);: INVERSE : HTAB 16: PRINT "TRIACIDO" 

: PRINT 
3770 NORMAL 

3780 PRINT TAB( 15) 1 ** MENU' PRINT : PRINT / continua ) 
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Due esempi di funzionamento del programma: le curve di titolazione tracciate in base ai dati inseriti. 


3790 PRINT TAB( 5)'l- SPIEGAZIONI PRINT : PRINT 
3800 PRINT TAB( 5)‘2- RAPPRESENTAZIONE DELLA CURVA ': PR1N 
T : PRINT 

3810 PRINT TAB< 5) B 3-RAPPRESENTAZIONE DELLA CURVA E 
RISULTATI NUMERICI 1 : PRINT : PRINT 
3820 PRINT TAB( 5)"4-STMPA DELLA CURVA 1 : PRINT TAB( 7)"< 
ALCUNE STAMPANTI) 1 : PRINT 

3830 PRINT TAB< 5)"5-RIT0RN0 AL MENU"PRINCIPALE*: PRINT 
3840 VTAB 23: HTAB 4: PRINT 'SCEGLIETE UN NUMERO PER CQNTIN 
UARE 1 : GET AX: PRINT : HOME 
3850 IF AX < 1 OR AX ) 5 THEN GOTO 3780 
3860 0N AX GOSUB 3890.4060,4060,4410 
3870 IF AX = 5 THEN GOTO 190 
3880 GOTO 3780 
3890 REM 

3900 PRINT CHRI (14): 

3910 VTAB 9: HTAB 8: PRINT '** NEUTRALIZZAZIONE «■ 

3920 VTAB 13: HTAB 8: PRINT CHR$ (14);: PRINT '** DI UN TR 
IACID0 **': PRINT 

3930 VTAB 19: PRINT 'PER UN TRIACIDO SI OTTIENE UW RELAZIO 
- NE ANALOGA A QUELLA OTTENUTA PRECEDEN- TEMENTE PER 
UN BIACJDQ 1 : PRINT 

3940 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A$: TEXT 
: HOME 

3950 VTAB 4: HTAB 4: PRINT "B* = H2A- ♦ 2M2- ♦ 3A3- ♦ OH- 
♦ H+ ": PRINT : PRINT 

3960 HTAB 4: PRINT 'B+ = M(K1H*2 ♦ 2K1K2H 4 3K1K2K3) / H*3 
+ K1H* 2 4 K1K2H 4 K1K2K3 4 KU/H - H 1 : PRINT : PRINT 
3970 PRINT "K1.K2.K3.M RAPPRESENTANO LE COSTANTI DI IONIZZA 
ZI ONE E LA MOLARITA'DELL'ACIDO 1 
3980 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A*: TEXT 
: HOME 

3990 VTAB 4: PRINT 'H2A- . M2- , A3- CORRISPONDONO ALLE 
BASI CONIUGATE 1 : PRINT 

4000 PRINT "CONSIDERANDO LA CONCENTRAZIONE IN IONI H4 COME 
UW VARIABILE INDIPENDENTE 1 : PRINT 
4010 PRINT 'E' FACILE DETERMINARE LA CURVA DI NEU- TRALIZZ 
AZIONE, CONTRARIAMENTE AL 1 
4020 PRINT 

4030 PRINT "METODO CLASSICO CHE DEDUCE (H4) IN FUN- ZIONE D 
ELLA (BASE) AGGIUNTA" 

4040 HTAB 4: VTAB 24: PRINT “BATTI UN TASTO 1 : GET A*: TEXT 
: HOME 
4050 RETURN 

4060 VTAB 10: PRINT 'SULLA CURVA ABBIAMO I VALORI DI PH IN 
ORDINATE E IL NUMERO DI MOLI" 

4070 PRINT "DI MOLECOLE DI BASE AGGIUNTA IN ASCISSA 1 


4080 PRINT 

4090 VTAB 15: INPUT 'INDICATE I VALORI DELLE 3 COSTANTI E L 
A MOLARITA':K1.K2.K3.M 1 :K1.K2.K3.M1: PRINT 
4100 INPUT 'INDICATE IL NÓME DELL'ACIDO : B sB$ 

4110 PRINT CHR$ (14);: PRINT "CURVA DI NEUTRALIZZAZIONE 1 
4120 PRINT CHR* (14);: PRINT B* 

4130 PRINT 
4140 HGR 

fTl50 HPLOT 0,0 TO 0.159 TO 279,159 
4160 FOR X = 27 TO 279 STEP 27: HPLOT X.159 TO X,154: NEXT 
: FOR Y = 144 TO 1 STEP - 15: HPLOT O.Y TO 5,Y: NEXT 

4170 X = 0:Y = 159 - 6.25 * ( - .4343 * LOG (Kl) - .4343 * 

LOG (MI)) 

4180 HPLOT X,Y 

4190 FOR PH = .5 * < - .4343 * LOG (Kl) - .4343 * LOG (MI 
)) TO 12.5 STEP .25 
4200 PH = ( INT (PH * 1000) / 1000) 

4210 Y = 159 - PH * 12.5 
4220 U = 279 / (4 * MI) 

4230 H = EXP ( - 2.303 * PH) 

4240 B = (MI * (Kl * H 4 2 * 2 * Kl * K2 * H ♦ 3 # Kl * K2 

* K3)) / (H 4 3 ♦ Kl * H 4 2 ♦ Kl * K2 * H + Kl * K2 * 

in 1 » * o/f / in - u 

4250 PH = ( INT (PH * 1000) / 1000) 

4260 X = ABS (B * U) 

4270 IF X > 279 THEN X = 279 
4280 HPLOT TO X,Y 
4290 NEXT 

- 4300 HTAB 4: VTAB 24: PRINT "BATTI UN TASTO 1 : GET A*: TEXT 
: HOME 

4310 IF AX = 2 THEN RETURN 

4320 FOR PH = .5 * < - .4343 * LOG (Kl) - .4343 * LOG (MI 
)) TO 12.5 STEP .25 
4330 PH = ( INT (PH * 1000) / 1000) 

4340 H = EXP ( - 2.303 * PH) 

4350 B = (MI # (Kl * H * 2 ♦ 2 # Kl * K2 * H ♦ 3 # Kl * K2 

* K3)) / (H 4 3 + Kl # H 4 2 ♦ Kl * K2 * H ♦ Kl * K2 * 

K3) ♦ (KE / H) - H 

4360 B = ( INT (B * 1.E5) / 1.E5) 

4370 HTAB 8: PRINT "PER PH = 1 ;PH;" B= 1 ;B: PRINT 
4380 NEXT 

4390 HTAB 4: VTAB 24: PRINT 'BATTI UN TASTO 1 : GET A*: TEXT 
: HOME 
4400 RETURN 

4410 PR# 1: POKE 1913,1: PRINT CHR$ (17): PR# 0 
4420 RETURN 
4430 END 


Le equazioni impiegate, che sono 
riportate nelle spiegazioni di ognuno 
dei menù secondari, possono essere 
ricavate utilizzando le equazioni di bi¬ 
lancio di carica e di bilancio di massa 
assieme alle espressioni per le costanti 
di dissociazione e del prodotto ionico 
dell’acqua. Per ulteriori informazioni 
sul metodo si vedano i riferimenti 
1-4. 


Il programma si compone di due li¬ 
stati; il primo, Bonjour, ha lo scopo di 
caricare il programma principale al di 
sopra dell’area di memoria destinata 
alla prima pagina grafica e di richia¬ 
marlo successivamente. Il programma 
principale è costruito per blocchi che 
corrispondono alle opzioni del menù 
principale e non presenta particolarità 
di rilievo. 


• H.Freiser, J.Chem.Educ., 47, 
809 (1970) 

• R.A.Stairs, J.Chem.Educ., 
55, 99 (1978) 

• G.M.Barrow, Computer Ba- 
sed Study, The Milne Press 
Box 1247 Carmel Valley, 1979 

• C.J.Willis, J.Chem.Educ., 58, 
659 (1981) 
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Gestione schermo a 40 colonne 

Lo schermo di testo a 40 colonne è composto da 
40x24 caselle tutte identificabili da una locazione di 
memoria ben precisa: si dice quindi che lo schermo è 
BIP MAPPED. La prima casella in alto a sinistra è 
identificata dal numero decimale 1024 (esadecimale 
$400) e l’ultima in basso a destra corrisponde al 2039 
decimale (esadecimale 7DF). Qui sotto riportiamo la 
piantina esatta dello schermo con i riferimenti corri¬ 
spondenti. I numeri preceduti dal segno del dollaro 
sono in notazione esadecimale. (Figura 1) 

Siccome ogni casella corrisponde, come abbiamo 
detto, ad una ben precisa locazione di memoria, cam¬ 
biando il valore di una locazione possiamo visualizzare 
una lettera sullo schermo nel punto che desideriamo e 
possiamo visualizzarla NORMAL - INVERSE - 
FLASH. Facciamo un esempio. Se vogliamo scrivere 
una A nel centro dello schermo in modo FLASH dob¬ 
biamo scrivere POKE 1469,65. Allo stesso modo noi 
possiamo sapere quale lettera è contenuta in una ben 
precisa locazione dello schermo battendo PRINT 
PEEK (locazione dello schermo interessata). Nel caso 
precedente, una volta scritta la A in FLASH, se noi 
battiamo PRINT PEEK (1469) avremo come risultato 
65. 

Lo schermò BIP MAPPED ci permette di effettuare 
un’altra operazione ovvero fare un dump dello scher- 
mo su disco con l’istruzione BSAVE no¬ 
me, A$400,L$400. Quando vogliamo visualizzare la pa¬ 
gina così salvata, è sufficiente battere BLOAD nome e 
sul video rivedremo la pagina completa. 

Riportiamo qui sotto la tabella completa dei caratteri 
ASCII dello schermo con i valori che occorre introdur¬ 
re in memoria per avere la lettera in modo NORMAL, 
FLASH oppure INVERSE. Per le lettere minuscole, 
l’unica possibilità è il modo NORMAL. (Figura 2) 

Un’altra possibilità è quella di scrivere una frase, non 
più lunga di 40 caratteri, sulla riga 24 dello schermo 
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0 $00 

2 $02 

3 $03 

4 $04 

5 $05 

6 $06 

7 $07 

8 *08 

9 $09 

10 $0A 

11 S0B 

12 S0C 

13 $0D 

14 $0E 

15 S0E 

16 SI0 

17 SII 

18 SI2 

19 SI3 

20 $14 

21 $15 

22 $16 

23 $17 

24 $18 

25 $19 

26 $1A 

27 $IB 

28 $IC 

29 SID 

30 $1E 

31 $IF 

32 $20 

33 $21 

34 $22 

35 $23 

36 $24 

37 $25 

38 $26 

39 $27 

Figura 1 





































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































senza avere lo scroll verso l’alto. Ecco un semplice 
programmino: 

10 A$ = "APPLICANDO - CORSO MONFORTE 
39 - MILANO" 

20 FOR I = 1 TO 39: POKE 2000 + I, ASC ( MIDS 
(A$,I,1)) + 128: NEXT 
30 POKE 37,1: PRINT : END 
La frase va memorizzata in una variabile stringa, 
vedi linea 10. Il contatore a linea 20 va calcolato in base 
al numero dei caratteri della stringa, spazi compresi, 
mentre il +128 al termine della linea serve per scrivere 
la frase in modo NORMAL. L’istruzione a riga 30 
serve per posizionare il cursore in un punto alto dello 
schermo ed evitare quindi lo scroll in senso verticale di 
una riga. 


Figura 2 

Negativo 
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Poca memoria 

Mi rivolgo alla vostra rivi¬ 
sta per una consulenza su al¬ 
cuni punti. 

1. Perché oltre al PRODOS 
devo caricare il BASIC SY¬ 
STEM, con conseguente 
perdita di file su disco? Qual 
è il sistema attuale per utiliz¬ 
zare al massimo la memoria 
del disco e impegnare il mi¬ 
nor numero di locazioni di 
RAM? Devo confessare che 
sono rimasto stupito dal fat¬ 
to che di 128K RAM di me¬ 
moria acquistati, allo stato 
attuale, come certamente 
voi sapete, ne restano solo 
30 circa, effettivamente da 
me utilizzabili direttamente. 
Il BASIC Applesoft non è 
già in ROM? 

2. Facendo riferimento al 
n.12 —13 di Applicando , 
p.75, "Programmi in lin¬ 
guaggio macchina", dopo 
aver digitato CALL—151, 
sullo schermo mi appare 
CALL 151 

009D- A=00 X=9D Y=97 
P=B4S=F2 

Voi non accennate né 
spiegate la 009D; che cosa 
devo fare per proseguire? 
Esiste un manuale che illu¬ 
stri bene l’assembly come 
linguaggio e l’uso del pro¬ 
gramma assembler? Dispo¬ 
nete di un programma as¬ 
sembler per l’Apple//c con 
manuale, che io possa acqui¬ 
stare da voi? Desidero pure 
acquistare il Logo. 

Guido De Baggis 

Macerata 

1. Per usare un disco con il 
ProDos occorre che vi sia re¬ 
gistrato anche il file BASIC. 
SYSTEM, perché, mentre il 
file ProDos contiene le routi¬ 
ne principali del ProDos 
stesso che permettono di co¬ 
municare con il drive in mo¬ 
do compatto e versatile, il file 
BASIC.SYSTEM contiene 
le routine che permettono 
Vutilizzazione del drive con i 
programmi in BASIC. 

Uno dei sistemi che per¬ 
mette di utilizzare al massi¬ 
mo la capacità di un disco è 
quello di formattare il disco 
(in DOS o ProDos) senza 


registrare su di esso il sistema 
operativo e utilizzarlo come 
disco dati. AITaccensione 
del computer occorre però 
inserire un disco con il siste¬ 
ma operativo per caricarlo in 
memoria. Le locazioni di 
memoria RAM vengono im¬ 
pegnate a seconda del tipo e 
della lunghezza del pro¬ 
gramma caricato. Non esiste 
una regola generale seguen¬ 
do la quale si possano occu¬ 
pare meno locazioni di me¬ 
moria, ma tanti piccoli parti¬ 
colari adattabili di caso in ca¬ 
so che a volte permettono di 
ridurre sensibilmente la me¬ 
moria occupata. 

La memoria massima del¬ 
l'Apple Ile di 128K è forma¬ 
ta, per una sua struttura in¬ 
terna, da 48K gestibili nor¬ 
malmente (che si riducono a 
circa 36K con il sistema ope¬ 
rativo caricato in memoria) 
più 16K sistemati nella cosid¬ 
detta Language Card e 64K 
nella parte di memoria relati¬ 
va alla scheda a 80 colonne. 
Questa memoria non può es¬ 
sere utilizzata contempora¬ 
neamente per la struttura 
stessa del microprocessore 
ma a "banchi” e per far ciò 
occorre commutare degli ap¬ 
positi switch con delle adatte 
istruzioni in Basic o meglio 
in linguaggio macchina. In 
uno dei prossimi numeri di 
Applicando pubblicheremo 
delle routine che permette¬ 
ranno di utilizzare tutta la 
memoria. 

2) Battendo CALL—151 
per passare in Monitor il vi¬ 
deo deve visualizzare, come 
cursore, l’asterisco che indi¬ 
ca appunto che siamo in zo¬ 
na Monitor. Da quanto leg¬ 
giamo dalla sua lettera lei 
batte CALL 151 e non 
CALL— (lineetta o meno) 
151. L’istruzione CALL ri¬ 
chiama, da Applesoft, una 
routine in linguaggio mac¬ 
china la quale, una volta ter¬ 
minata la sua esecuzione, ri¬ 
passa il controllo all’Apple¬ 
soft. Quindi non mettendo la 
lineetta lei non richiama la 
routine del Monitor ma bensì 
un’altra routine che inizia al¬ 
la locazione di memoria $97 
(esadecimale) equivalente al 
numero decimale 151. Que¬ 


sta zona di memoria all’ac¬ 
censione del computer con¬ 
tiene degli zero (equivalenti 
a BREAK); il computer si 
blocca in zona Monitor per¬ 
ché impossibilitato a riporta¬ 
re il controllo all’Applesoft e 
visualizza il contenuto dei 
registri e dello stack del mi¬ 
croprocessore. 

Per il programma assem¬ 
bler (DOS programmer 
Tool kit) e il Logo può rivol¬ 
gersi a un rivenditore Apple. 
Per i manuali sul linguaggio 
assembler può rivolgersi in¬ 
vece a una libreria fornita di 
libri sull’informatica e chie¬ 
dere del manuale di pro¬ 
grammazione del 6502 della 
Jackson. 

La carta 
non si ferma 

Ho acquistato di recente 
una stampante Star Gemini 
10X con interfaccia grafica 
per il compatibile Apple 
(AM 64) senza manuale in 
italiano e di conseguenza 
non so come usarla; una vol¬ 
ta accesa e impartito il co¬ 
mando PR £1, la stampante, 
oltre a fornire caratteri gra¬ 
fici (invece di un normalissi¬ 
mo "ciao") continua a far 
avanzare la carta senza fer¬ 
marsi mai. Desidererei rice¬ 
vere le informazioni neces¬ 
sarie e i comandi indispensa¬ 
bili per eseguire una hard 
copy su tale periferica. 

Fabio Rumiz 

Trieste 

Da quanto ci scrive sem¬ 
bra che il problema sia del¬ 
l’interfaccia e non della 
stampante. Infatti se una 
stampante è regolarmente 
collegata a un Apple II con 
un’appropriata interfaccia, 
fornendo il comando PR£1 
essa rimane in attesa che le si 
diano i comandi di PRINT 
(da programma) oppure che 
siscriva qualcosa da tastiera, 
che riprodurrà su carta se¬ 
guita dall’inevitabile ?SIN- 
TAX ERROR. 

Le consiglierei di rivolger¬ 
si al rivenditore che le ha 
venduto questa periferica, 


pregandolo di verificare l’in¬ 
terfaccia e un eventuale set¬ 
taggio della stampante per 
un corretto funzionamento 
della stessa. 

Senza percorsi 

Sono un possessore del¬ 
l’Apple Ile, e ho provato a 
digitarvi il programma 
GOLF pubblicato su Appli¬ 
cando n.14. Mi sono accer¬ 
tato che il programma fosse 
scritto correttamente, tanto 
che la routine ONERR GO¬ 
TO non mi segnala alcun er¬ 
rore, solo che quando cerco 
di giocare su un percorso 
precedentemente salvato, e 
che ho anche accertato che 
fosse salvato veramente, il 
computer mi presenta la 
scritta NON CI SONO 
PERCORSI SU QUESTO 
DISCO. Ho pensato che 
fosse dovuto a un errore di 
trascrizione nella routine di 
salvataggio, ma non ne ho 
trovato alcuno. Quindi, non 
potrebbe essere che un pro¬ 
gramma elaborato sul //e 
(come credo sia GOLF) non 
giri sul //c perché è diverso il 
modo con cui viene salvato il 
percorso sul dischetto? 

Mauro Tale vi 

Ciampino ( ROMA) 

Al termine della creazione 
di un percorso il programma 
CREA salva i dati in un file 
di testo (linee 1290—1330) 
con il nome scelto in prece¬ 
denza (linea 180) e scrive in 
un altro file di testo chiamato 
COURSE.LIST il numero e 
il nome del percorso (linee 
1370-1550). Questi ultimi 
dati vengono letti dal pro¬ 
gramma principale GOLF 
alle linee 400—500. Mancan¬ 
do questi ultimi dati, il com¬ 
puter le segnala NESSUN 
PERCORSO anche se fa¬ 
cendo il catalog risulta il per¬ 
corso sul dischetto (linea 
480). Il consiglio che le pos¬ 
siamo suggerire è quello di 
controllare meglio le linee in¬ 
dicate dove vengono memo¬ 
rizzati i dati necessari per il 
funzionamento. Le confer¬ 
miamo che il listato pubbli¬ 
cato è esente da errori. 
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Alfa e beta 

Posseggo un Apple II Plus e 
ho due problemi da sotto¬ 
porvi. 

1. Come inserire in un 
word processor (Ptero o Ja¬ 
ne) dei simboli non compre¬ 
si sulla tastiera come quelli 
dell’alfabeto greco, per ste¬ 
sura di lavori matematici? 

2. Come correggere o mo¬ 
dificare programmi in lin¬ 
guaggio macchina (esadeci- 
male) una volta che siano 
già stati salvati su dischetto e 
non siano più residenti nella 
memoria centrale dell’ela¬ 
boratore? 

Angelo Ferrarese 

Pecetto Torinese (TO) 

Vediamo di rispondere 
con ordine alle sue gentili ri¬ 
chieste. 

1. Per quanto riguarda l’u¬ 
so di caratteri dell’alfabeto 
greco con un Word Proces¬ 
sor direttamente da tastiera le 
dico subito che non è possi¬ 
bile. Tuttavia è possibile ri¬ 
solvere il problema in fase di 
stampa, usando Apple Wri- 
ter con il programma Prow- 
riter dello Studio Pedrazzi¬ 
ni; questo programma per¬ 
mette di caricare set di carat¬ 
terigrafici alternativi costrui¬ 
ti con il DOS TOOL KIT, e 
quindi di riprodurli in stam¬ 
pa, anche se a video vedrà 
sempre le lettere ben note 
dell’alfabeto italiano. 

2. Per correggere o modi¬ 
ficare un programma scritto 
in linguaggio macchina e poi 
memorizzato su disco, è suf¬ 
ficiente richiamarlo secondo 
i seguenti comandi BLOAD 
PIPPO, A$800 dove A$800 è 
l’indirizzo della locazione di 
partenza, in esadecimale (il 
nome del file e i valori di A$ 
sono del tutto fittizi in questo 
caso). Quando il program¬ 
ma sarà caricato in memoria 
bisognerà battere, in sequen¬ 
za: CALL-151 (per cui 
comparirà un asterisco che è 
il prompt dell’ambiente in 
linguaggio macchina); 800L 
(supponendo che il pro¬ 
gramma cominci alla loca¬ 
zione 800): a video compari¬ 
rà il listato in linguaggio 
macchina che potrà essere 


manipolato a piacere. Si ri¬ 
cordi di memorizzare le mo¬ 
difiche apportate con il co¬ 
mando: BSAVE PIP- 
PO,A$800,L$BFF (dove 
BFF è la lunghezza del pro¬ 
gramma sempre in esadeci¬ 
male). 

C # è il manuale? 

Vorrei sapere se esiste un 
manuale del ProDOS in ita¬ 
liano poiché dispongo solo 
di quello in inglese fornito¬ 
mi con il ProDOS User’s Kit 
e non capisco l’inglese. 

Andrea Vitali 

Trieste 

È disponibile, presso tutti i 
rivenditori autorizzati Ap¬ 
ple, il Manuale Utente Pro¬ 
DOS in versione italiana. 

Qualche trucco 

Sono un vostro abbonato 
e desidero sapere se il pro¬ 
gramma Mouse Paint (Ap¬ 
ple //e) è compatibile con la 
stampante Mannesmann 
Tally 80+. Se non è compa¬ 
tibile c’è qualche trucco per 
risolvere il problema? Sape¬ 
te se esiste qualche scheda o 
programma per rendere col¬ 
legabili (compatibili) il mio 
Apple //e (64K 80 colonne) 
con il Pc Ibm? 

Guido Pastore 
Vercelli 

Purtroppo il programma 
MousePaint così come viene 
venduto dalla Apple Com¬ 
puter può funzionare sola¬ 
mente con le stampanti Ap¬ 
ple Dot Matrix Printer oppu¬ 
re Image Writer. Per quanto 
riguarda poi la sua seconda 
domanda in merito a compa¬ 
tibilità tra Apple e IBM, se 
per compatibilità intende la 
possibilità di scambiare dati 
tra le due macchine (solo in 
formato ASCII o text files) 
allora è possìbile; ma se col 
termine compatibilità Lei 
vuol sapere se si possono in- 
terscambiare programmi tra 
questi due personal, allora 
non è possibile stante la di¬ 
versità dei due sistemi opera¬ 
tivi. 


é MERCATINO 


• Desidero contattare utenti 
Apple nella mia zona per scam¬ 
bio di esperienze. Umberto 
Cordier, Casella postale 269, 
17100 Savona. 

• Causa cambio sistema vendo 
software Apple II, //e, //c su 
supporti Nashua a un lato a lire 
7.500 cadauno, trattabili, + 
spese di spedizione. Andrea Vi¬ 
tali, Via Santa Maria in Siaris 9, 
34149 Trieste. Tel. 040/813414 
(dopo le ore 14). 

• Cerco nelle province di Gori¬ 
zia e Trieste possessori di Apple 
II per scambio programmi. Te¬ 
lefonare a Massimiliano Tirone 
allo 0481/72477. 

• Vendo AppleWorks in ingle¬ 
se. Esamino proposte per lavori 
di routine eseguibili con WP, 
DB e SS. Compro software per 
Apple //c; spedire lista con prez¬ 
zi. Nazzareno Vasapollo, Via 
De Gasperi 8, 61029 Urbino. 
Tel. 0722/2195. 

• Vendo per Apple Ile copia del 
programma AppleWorks com¬ 
pleto di manuale a lire 60.000, 
oppure lo cambio con Flight Si¬ 
mulator o con altri programmi. 
Silvio Peruzzo, Via Vignole 1, 
36030 Levà di M.P. (VI). 

• Vendo per Apple II Superto- 
to 1.1 con tre diverse opzioni di 
selezione incrociate per qualsia¬ 
si sistema di doppie e triple (n. 
segni 1X2, segni consecutivi, 
corr. errori), sviluppo su moni¬ 
tor o stampante. Lire 60.000 
compreso manuale. Telefonare 
a Roberto Rossi allo 
02/6070236. 

• Vendo Apple //e, 1 drive, mo¬ 
nitor Apple III, scheda 80 co- 
lonne/64K, scheda CP/M; sono 
compresi i migliori programmi 
di spreadsheet, grafica, wp, da¬ 
ta base, AI, ecc. Il tutto a lire 
2.500.000 trattabili. Scrivere a 
Stefano Santucci, Via F. Zanar- 
di 142, 40131 Bologna. Oppure 
telefonare allo 051/6340831 
(ore serali). 

• Causa passaggio al Macin¬ 
tosh, vendo Apple Ile con sei 
mesi di vita e praticamente nuo¬ 
vissimo, completo di modulato¬ 
re colori, monitor e supporto, 
mouse e relativo Mouse Paint, 
secondo drive, Image 80, più un 
ben fornito numero di program¬ 
mi (tra cui Apple Writer, Tre 
per te, Dos Tool Kit, Promtp 
mouse tool kit ecc.), utility par- 


DELLE MELE É 


ticolarmente interessanti, Dos e 
ProDos con relativi manuali 
originali e giochi particolar¬ 
mente validi ad alta grafica che 
regalo. Tutto per lire 4.500.000. 
Maurizio Biffi, Via Ghirardelli 
12, 24100 Bergamo. Tel. 
035/211506. 

• Vendo stampante grafica Sei- 
kosha GP 100 A con interfaccia 
per Apple II e Ile completa di 
manuali a lire 350.000 non trat¬ 
tabili. Antonio Bellofatto, Via 
Gobetti 4, 31100 Treviso. 

• Cerco usato a buon prezzo: 1) 
stampante Epson o Image Wri¬ 
ter 80 colonne completa di in¬ 
terfaccia; 2) drive per Apple Ile . 
Vincenzo Esposito, S.P. Castel- 
forte 72,04026 Minturno (LT). 

• Vendo molti meravigliosi 
programmi di ogni tipo per Ap¬ 
ple II e Ile. Prezzi incredibili. 
Gennaro Oricchio, Via San 
Marco 240, 84043 Agropoli 
(SA). Tel. 0974/822511. 

• Cerco possessori di Apple 
Macintosh per scambio espe¬ 
rienze e programmi. Annuncio 
sempre valido. Mario Taragoni, 
Piazza Rossetti 4, 16129 Geno¬ 
va. Tel. 010/561692. 

• Apple II Plus 64K vendo, ori¬ 
ginale, perfetto, con scheda lan- 
guage 16K, scheda controller 
per 2 drive, drive originale Ap¬ 
ple a lire 1.280.000. Roberto 
Rossi, Via Lario 26, 20159 Mi¬ 
lano. Tel. 02/6070236. 

• Compilatore e altri program¬ 
mi per Apple III urgentemente 
cerco, interessato a offerte an¬ 
che se fuori Napoli. Scrivere o 
telefonare a: Francesco De Vi¬ 
to, Via Cintia — Parco S. Paolo 
Is. 12, 80126 Napoli. Tel. 
081/7671634. 

• Sviluppo software di tipo ge¬ 
stionale su Commodore 64 o 
Apple II solo in Torino. Telefo¬ 
nare a Vincenzo Garrone allo 
011/833240. 

• Vendiamo a lire 3.500.000 
programma Analisi di bilancio 
delle imprese manifatturiere. 
Funziona su Apple III 256K con 
drive aggiuntivo e stampante 
Epson MX 100 III. Telefonare 
allo 0461/981985 ore ufficio. 

• Causa cambio sistema, vendo 
Apple Ile con vasta biblioteca 
programmi originali, anche se¬ 
paratamente. Claudio Oggioni, 
tei. 02/5397867. 


93 





M. ®3®K SO¥3EI 


Applicando è lieto di offrire ai propri lettori la possibilità 
di sottoscrivere un abbonamento a 5 o 10 dischetti, a scelta 
fra tutti quelli presentati nel Disk Service, a un prezzo 
eccezionalmente vantaggioso: 

100.000 lire per 5 dischetti 
180.000 lire per 10 dischetti 


In pratica pagherete, rispettivamente, 20.000 lire o 
18.000 lire a dischetto, Iva e spese di spedizione comprese 

qualunq ue sia il prezzo di vendita del singolo dischetto 


Basta che compiliate il tagliando qui sotto e lo inviate 
a Applicando, abbonamenti Disk Service, Corso Monforte 
3Q, 20122 Milano, unitamente a un assegno non trasferibile 
intestato a Editronica srl e al vostro primo ordine. Per 
ordinare i dischetti, adesso e successivamente, utilizzate 
il buono d'ordine pubblicato alla pagina seguente, 
specificando sempre che siete un abbonato del Disk Service. 
L'abbonamento non ha una scadenza, e quindi i 5 o 10 
dischetti potete ordinarli nell'arco di tempo che più vi 

aggrada. 

Sì, desidero sottoscrivere il seguente abbonamento: 
| | 5 dischetti, per un importo di 100.000 lire 

| 1 10 dischetti, per un importo di 180.000 lire 


Nome_ 

Cognome_ 

Indirizzo- 

CAP- Città- PV 

Data_ Firma- 






















Disk Servio 





Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 
Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sottoindicati: per ottenerli, è sufficiente inviarci il tagliando debitamente 
compilato. 


APPLICANDO 1 

AP1/I02 Profitti. In tempo reale l’analisi del break-even point, punto di 
pareggio, di una qualsiasi azienda. Calendario perpetuo. Dal 1582 in 
poi tutto quello che si può sapere sui giorni passati e futuri. I tronchi 
del tesoro. Una spericolata caccia al tesoro a nuoto, fra le insidie di 
tronchi galleggianti. Lire 30.000 (abbonati 25.000). 

AP1/N03 Eliminatore di Dos. Uno strumento per aumentare del 10% 
la capacità di un normale floppy disk. Orologio. Per trasformare 
l’Apple // in un orologio con rintocchi, allarme e lancetta dei secondi. 
Pronti puntare fuoco! Guardiano di un castello abbandonato, hai 25 
colpi da sparare contro gli intrusi. Lire 30.000 (abbonati 25.000). 

APPLICANDO 2 

AP2/IN04 Costi chilometrici auto. Un programma per calcolare e 
confrontare i costi di qualunque auto. Richiamafigure. Posizionare, 
ingrandire, ruotare, cambiar colore, aggiungere figure a quelle di una 
tavola. Laser nello spazio. Battaglia a colpi di laser contro asteroidi e 
alieni per difendere la torretta spaziale. Lire 30.000 (abbonati 25.000). 

APPLICANDO 3 

AP3/IN05 Sistema base. Un data base modulare con tutte le caratteri¬ 
stiche essenziali per mettere ordine nei propri archivi. Etichette. Eti¬ 
chette spiritose e bizzarre, di lavoro o di ogni genere, stampate facil¬ 
mente e nel numero desiderato. Contratti. Con il WPL, il linguaggio di 
programmazione dell'Apple Writer, bastano cinque minuti per un do¬ 
cumento di pi’ pagine personalizzato. Gran catalogo. Una routine per 
avere il catalogo del dischetto su due colonne, 42 file per volta, e 
richiamarli con un solo tasto. Lire 30.000 (abbonati 25.000). 

AP3/A06 Equo canone (occorre Visicalc). In Visicalc un modello che 
permette, a inquilini o proprietari, l’esatto calcolo dell’equo canone. 
Lire 25.000 (abbonati 20.000). 


Sistema base - AP3/IN05 

Un data base modulare che ha 
il pregio di costare pochissimo 
e di offrire possibilità operative 
che nemmeno programmi 
di costo molto superiore hanno. 



APPLICANDO 4 

AP4/N07 Lettura sprint (versione italiana e versione con frasi in 
inglese). Un reading improver per leggere di più a parità di tempo. 
Rompiquindici. Il piccolo rompicapo delle quindici pedine da ordinare 


nei sedici spazi a disposizione. Tastierino fantasma, una routine per 
avere a disposizione un tastierino numerico anche sull’Apple//. Routi¬ 
ne di input. Due subroutine, una per i dati numerici l’altra per gli 
alfanumerici, per il controllo dell’input. Lire 30.000 (abbonati 25.000). 

AP4/A09 Organo, violino, pianoforte (dischetto Pascal, occorre lan- 
guage card o Apple //e o Ile). Ecco come, col Pascal, si riesce a 
simulare i tre strumenti attivando l’altoparlante dell’Apple da program¬ 
ma. Lire 30.000 (abbonati 25.000). 

APPLICANDO 5 

AP5/N08 Investor. In tempo reale il quadro esatto di come vanno i 
propri investimenti finanziari. Con cinque prospetti riepilogativi e 52 
periodi di quotazione, Investor è uno dei programmi più completi in 
questo settore e in assoluto il più economico. Lire 70.000 (abbonati 
60.000). 

AP5/N09 Agenda personale. Per ricordare ora per ora gli appunta¬ 
menti di un anno intero memorizzando fino a 15 appunti ogni giorno. 
Duello d’artiglieria. Vince chi sa calcolare meglio la velocità del 
vento, la gittata e l’elevazione della canna. Mele e freccette. Versione 
computerizzata del popolare gioco delle freccette che nulla toglie al 
gusto del far centro. Lire 30.000 (abbonati 25.000). 


Investor - AP5/N08 



Per seguire le azioni in Borsa, con 
grafici, media mobile a 15 e 52 
settimane, medie volume e prezzo 


APPLICANDO 6 

AP6/N10 Obbligazioni/Bond Manager. Per avere un quadro comple¬ 
to e concreto dei rendimenti dei titoli a reddito fisso. PucMan/Nibbler. 
Versione in alta risoluzione per Apple del famoso videogame a getto¬ 
ne. Line finder. Letteralmente trova righe, questa utility permette di 
localizzare facilmente i segmenti di un programma. Lire 30.000 (abbo¬ 
nati 25.000). 

AP6/N11 Stress. In Pascal (occorre language card o Apple Ile o Ile). 
Per giocare, ma soprattutto per inventare giochi, il programma si pone 
in alternativa agli usuali videogame. Lire 55.000 (abbonati 45.000). 


(Continua a pag. 96 ) 























APPLICANDO 7 

AP7/N12 Apple pittore. Si possono realizzare sullo schermo capola¬ 
vori di pittura, ottenendo effetti speciali di grande efficacia. Ottovolan¬ 
te. Un tutorial per insegnare ai bambini a riconoscere i numeri che 
rimbalzano sullo schermo. Diskblock. Una routine che permette di 
evitare che qualche curioso possa avere libero accesso in programmi 
riservati. Archivio per Apple. Per avere un back-up dei programmi più 
I importanti da dischetto a cassetta o viceversa. Discoteca. Una banca 
dati che tiene sotto controllo la collezione di longplaying e di cassette. 
Aiuto. Alla fine della battitura di un programma, Aiuto vi dirà quanti 
errori ci sono e a quali linee. Lire 30.000 (abbonati 25.000). 

APPLICANDO 8 

AP8/N13 Cambiacomandi/Messaggi. Un programma che insegna 
come personalizzare i messaggi propri del Dos dell’Apple. Le Mans. 
Un gran premio di formula uno da giocare in due o da soli contro il 
computer. Appleorgano. Una combinazione di linguaggio macchina e 
di Applesoft che trasforma l’Apple in un melodioso organo. Lire 30.000 
(abbonati 25.000). 

AP8/T14 Momento di una forza/Colpo all’asta. La dimostrazione 
didattica del ribaltamento di un corpo solido appoggiato a un piano 
quando viene applicata una forza orizzontale che supera il momento in 
senso opposto dovuto al peso. Hard copy pagine in alta risoluzione. 
Se la stampante risponde a determinati criteri di compatibilità, con 
questo programma si possono far miracoli. Lire 30.000 (abbonati 
25.000). 

APPLICANDO 9 

AP9/N15 Fuoco fatuo. Un appassionante adventure game con un 
persorso intricatissimo, mille trabocchetti, un troll e una principessa. 
Apple artista. Per destreggiarsi nella grafica ad alta risoluzione usan¬ 
do lo schermo come tavolozza e la tastiera come pennello. Data hello. 
Una semplice routine che permette di disporre di una clock card 
inizializzando i dischetti con giorno, mese e anno. Lire 25.000 (abbo¬ 
nati 20.000). 

AP9TT16 Sistema di forze parallele. Fissandone l’intensità e la posi¬ 
zione questo programma permette di visualizzare il centro di un siste¬ 
ma di forze sotto forma numerica e grafica. Traslazione e rotazione 
di una figura piana. Come far ruotare, traslare, rimpicciolire, ingrandi¬ 
re sul video una figura piana. Lire 30.000 (abbonati 25.000). 


APPLICANDO 10 

API 0/N14 Ripristino. Come ripristinare programmi persi per un’acci¬ 
dentale istruzione di New o di Fp. Disk Map. Un detective del Dos per 
scoprire dove e come vengono immagazzinati i dati analizzando la 
mappa dei bit occupati. Autonumber. Una routine per autonumerare 
automaticamente i programmi e allineare le linee con un ritorno carrel¬ 
lo in input. Lire 30.000 (abbonati 25.000). 

AP10/T17 Rette nel piano cartesiano. Come individuare in cinque 
modi diversi una coppia di rette in un piano cartesiano e avere visualiz¬ 
zate le equazioni relative ai valori assegnati. Statistica. Come analiz¬ 
zare la correlazione fra due fenomeni o due caratteri e l’indice o 
coefficiente di Bravais che ne effettua la misura. Lire 30.000 (abbonati 
25.000). 

APPLICANDO 11 

API 1/N18 Apple edicola. Una banca dati per avere sotto controllo un 
articolo, il suo numero di pagina, la rivista su cui è stato pubblicato. 
Disk Zap. Il programma indispensabile per il debugging di un dischetto 
che ne risolve la maggior parte dei problemi. Messaggi personali. 
Quando la persona non c’è, per lasciare un messaggio basta impo¬ 
starlo sulla tastiera. L’Apple farà il resto. Comparatore di programmi 
in basic. Una routine per risolvere dubbi sulle diverse versioni di uno 
stesso programma. Trappola per pochi. Un cacciatore contro tre 
animali feroci. Vince chi riesce a intrappolare senza essere intrappola¬ 
to. Lire 30.000 (abbonati 25.000). 

API IATI 9 Espressioni. Come risolvere un piccolo dramma familiare 
con l’aiuto di un elaboratore personale. Lire 25.000 (abbonati 20.000). 


APPLICANDO 12-13 

AP12/N20 Bridge. Un programma in altissima risoluzione grafica che 
permette di imparare il bridge o di giocarlo contro il computer. Micro- 
cale. Un foglio elettronico di calcolo, spreadsheet, che mette a disposi¬ 
zione 20 righe per 20 colonne per un totale di 400 caselle da riempire 
come si vuole. Applesoft Line Editor. Una potente utility che permet¬ 
te l’editing dei programmi in Applesoft e aggiunge all’Apple un più 
ampio controllo del cursore. Lire 30.000 (abbonati 25.000). 

API 2/A21 Budget (occorre Appleworks). Un prospetto che con l’inse¬ 
rimento di dati mensili e di medie preventive calcola automaticamente 
le medie consuntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A22 Budget (occorre Visicalc). Un prospetto che con l’inseri¬ 
mento di dati mensili e di medie preventive calcola automaticamente le 
medie consuntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A23 Cinque modelli Spreadsheet, tre modelli data base, due 
modelli Word Processor. Versione per Appleworks. Due dischetti. Lire 
80.000 (abbonati 70.000). 

AP12/A24 Cinque modelli Spreadsheet. Versione per VISICALC. Lire 
40.000 (abbonati 35.000). 

API 2TT25 Animazione di una rotazione tridimensionale. Un esem¬ 
pio di come una rotazione tridimensionale permette di rappresentare 
gli oggetti proprio come li vediamo. Trasformazione da File a Data. 
Una utility per risolvere il problema di aggiungere a un programma 
preesistente delle istruzioni DATA ricavati da un altro file. Lire 25.000 
(abbonati 15.000). 

APPLICANDO 14 

AP14/N26 Golf. Un programma in altissima risoluzione grafica che 
permette di disegnare il proprio percorso di golf per poi giocarci a 
piacimento con gli amici. Autopiù. Con l’aiuto di questo programma 
non dimenticherete più gli appuntamenti fissi dedicati alla manutenzio¬ 
ne della vostra automobile. Lire 20.000. 

AP14/N27 Applebaby. Tre giochi didattici: il primo per imparare a 
contare in età prescolastica; il secondo per ripassare le tabelline; il 
terzo per esercitarsi nell’ortografia. Lire 20.000. 

AP14/A28 Rimborso spese, (occorre Appleworks). Un prospetto che 
vi permette di preparare le vostre note spese automaticamente in 
cinque minuti. Lire 15.000. 

AP14/A29 Rimborso spese, (occorre VisiCalc). Un prospetto che vi 
permette di preparare le vostre note spese automaticamente in cinque 
minuti. Lire 15.000. 

API 4/T30 Frutteti. Un aiuto a risolvere uno dei più classici problemi di 
estimo. Instant Poster Voi scrivete con la tastiera del vostro Apple la 
frase che volete, e subito dalla stampante esce un poster formato 
gigante. Lire 15.000. 

APPLICANDO 15 

AP15/N31 Sintetizzatore di suoni. Con questo programma potete 
dotare i vostri lavori di una colonna sonora eccezionale; permette 
infatti la sintetizzazione dei suoni più diversi: dal canto dell’uccellino, 
alla mitragliatrice, da treno in corsa all’aereo, e tantissimi altri, compre¬ 
sa la musica. Volano. Un gioco in alta risoluzione per due sfidanti. 
Illustratore. Un programma di grafica che offre la possibilità di realiz¬ 
zare ottimi disegni anche a chi non è troppo ferrato in materia. Auto¬ 
schermo. Crea in automatico videate di presentazione dei programmi 
inseriti in un dischetto; dall’aspetto molto professionale, evidenzia 
infatti i programmi con una barra luminosa comandabile con le frecce e 
fa partire il programma così evidenziato con un semplice Return. Lire 
30.000. 

AP15/A32 Computer cuisine. Un ricettario computerizzato sul quale 
memorizzare ingredienti e ricette a centinaia, eliminando così sia il 
fastidio di mille pezzetti di carta sparsi per i cassetti, sia il pericolo di 
perdersi preziose ricette. Con possibilità di stampa delle singole ricette 
e un menù completo dei migliori piatti creati da Gualtiero Marchesi, il 
più famoso cuoco d’Italia. Occorre scheda 80 colonne. Lire 20.000. 

AP15/T33 Euclide. Il massimo comun divisore e il minimo comune 
multiplo in un programma che ne permette l’immediata comprensione. 
Isomeri. Fa parte del più ampio progetto americano Seraphim, per lo 
studio della chimica. Lire 15.000. 
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APPLICANDO 16 

AP16/N34 Dieta personalizzata. Con questo programma, un pratico 
sistema di Data Base nutrizionale, è possibile personalizzare, a se¬ 
conda della propria costituzione fisica e delle abitudini alimentari, una 
dieta bilanciata, a lungo o a breve termine. Il dischetto contiene un file 
dati di 400 cibi, la cui composizione è analizzata in calorie, proteine, 
grassi, vitamine, colesterolo. Lire 25.000. 

AP16/N35 Designer. Il concetto dei potenti e costosi programmi di 
CAD/CAM alla portata dell’Apple //, per fare del computer uno stru¬ 
mento per disegnare semiprofessionale. Il gioco dei pompieri. E’ 
scoppiato un incendio, e voi siete un pompiere che deve salvare il 
maggior numero di persone prima che muoiano soffocate tra le fiam¬ 
me. Se sbagliate tre volte, sarete nei guai: il severo comandante... Per 
listare bene in vista. Programmare è divertente, creativo, affascinan¬ 
te. Ma talvolta bisogna tornare sul listato per correggere e modificare 
qualcosa. Allora può capitare di pentirsi di aver preferito la compattez¬ 
za alla chiarezza. A meno che non si faccia uso di questo programma. 
Timer. Un efficace programma per trasformare l’Apple // in un fedele e 
preciso contasecondi che avverte del passare del tempo, e al momen¬ 
to giusto... Lire 25.000. 

API 6/N36 Cento One-liner. Utilities, routines, dimostrativi di grafica e 
di suoni, e perfino giochi. Cento programmi su un solo dischetto, tutti 
rigorosamente scritti in una sola linea di Basic. Da usare così come 
sono, da studiare come esempi di sintesi, o da trasferire nei vostri 
programmi. Lire 25.000. 

AP16/N37 Rubrica telefonica. (Occorre AppleWorks). Un’agenda 
telefonica che individua in tempo reale qualunque numero memorizza¬ 
to, che stampa le etichette per spedire gli auguri di Natale e di Pasqua 
solo a chi volete voi, che seleziona, con molteplici possibilità, gruppi di 
nominativi e stampa elenchi su carta da distribuire aggiornati ogni 
mese ai collaboratori. Lire 15.000. 

APPLICANDO 17 

AP17/N38 Strade d’America. Pianifica un qualunque itinerario stra¬ 
dale americano tra ben 171 città diverse, fornendo le sigle delle strade 
da percorrere, l’elenco delle città intermedie e calcola la distanza in 
miglia dei tratti intermedi e la distanza totale dalla città di partenza a 
quella d’arrivo. Uragano. Su una piccola città indifesa una tempesta si 
abbatte implacabile: distruggerà tutte le case e ucciderà ogni abitante, 
in un crescendo di violenza incontrastabile. Un rifugio ci sarebbe, ma 
come raggiungerlo? Non c’è proprio speranza. A meno che... Gioco ad 
altissima risoluzione grafica. Lire 30.000. 

AP17/N39 Regress. Ideale per manipolare dati con funzioni statisti¬ 
che, questo programma è destinato soprattutto a chi ha bisogno di uno 
strumento veloce per eseguire analisi di carattere statistico, con la 
conseguente possibilità di chiedere previsioni in base all’andamento 
delle regressioni sui dati inseriti. Calcolatrice RPN. Con questo pro¬ 
gramma, l’Apple diventa una sofisticata calcolatrice che impiega per 
l’input la notazione polacca inversa, con una catasta operativa di 
quattro registri, e permette calcoli complessi. Sparate a vista. Siete 
appostati contro un muro e comandate un potente cannone atomico 
...ad aria. Dal cielo fluttuano oggetti non meglio identificati: alcuni 
lentamente, altri un po' meno. Voi, questi oggetti, dovete respingerli. 
Peccato, però, che dall’altra parte ci sia un avversario con un altro 
cannone... Lire 25.000. 

AP17/A40 I conti del negozio. (Occorre AppleWorks). Diviso in due 
file, simili per impostazione ma diversi per utilizzo, questo modello di 
Spreadsheet è utilissimo per seguire l’andamento giornaliero e mensi¬ 
le di un negozio. All’apertura del negozio coincide l’apertura di un 
foglio vuoto del modello: per ogni movimento di cassa è possibile 
memorizzare la causale, il tipo di pagamento e a cosa si riferisce. Il 
computer calcola i totali per ogni voce e indica quale è stato il movi¬ 
mento di cassa giornaliero, tenendo conto degli ordini e dei saldi per 
impegni precedenti. Un’ultima sezione elabora i dati suddivisi per 
categorie merceologiche e calcola le percentuali di ripartizione degli 
utili su ogni articolo. Lire 50.000. 

AP17/A41 I conti de! negozio. (Occorre VisiCalc). Lo stesso di 
AP17/A40, ma con VisiCalc. Lire 50.000. 

APPLICANDO 18 

AP18/N41 Trivia. Stregherà milioni di italiani facendoli giocare, la 
novità che viene daH’America: si chiama Triviai Pursuit ed è destinato a 
diventare il gioco dell’anno. Per sperimentarlo in anteprima, Applican¬ 
do ne propone una versione per Apple //, per di più personalizzabile e 
quindi utile anche per studiare o ripassare, oltre che per divertirsi... 
Bioritmi. Ci sono giornate in cui conviene non uscire nemmeno di 
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casa, perché va tutto storto; e ci sono giorni baciati dal destino in cui si 
naviga sull’olio. Sarebbe bello conoscerli in anticipo e organizzarsi 
meglio la vita. Con questo programma si può seguire l’andamento dei 
propri bioritmi: tutti e tre i cicli, mese per mese. Occhio ai consumi. 
Volete sapere quanto consuma la vostra auto? Potete annotare dili¬ 
gentemente la percorrenza e i litri di carburante e poi fare i relativi 
calcoli. Oppure, molto più semplicemente, caricare su Apple questo 
programma, utile per valutare anche altri tipi di consumi... Lire 25.000. 

AP18/N42 Regolatore del bip. Ci sono momenti in cui il Ile , con tutti 
quei suoi bip, sembra ridere dei nostri errori. Che fare? Spegnerlo e 
uscire a fare due passi? Cambiarlo con il //c, che ha il volume regolabi¬ 
le? Mettersi i tappi nelle orecchie? No, la soluzione è un’altra, semplice 
e davvero simpatica... e soprattutto funziona! Comparatore di grafici. 
Avere il grafico di una funzione può essere inutile se poi non si 
possono esaminare i particolari del suo andamento in una certa zona. 
Se poi si deve vedere la differenza tra due curve diverse c’è da fare un 
difficile e poco preciso lavoro di comparazione. A meno di non utilizza¬ 
re questo programma che... Impaginatore di messaggi. Per avere le 
scritte perfettamente centrate sia sul video che sulla stampante occor¬ 
re tanta pazienza e tanto occhio. Oppure avere in memoria questo 
impaginatore che, all’occorrenza, può servire anche da word proces¬ 
sor. Utility per ProDOS. Prefix, Subdirectory, Pathname? Sono 
termini che bisogna conoscere per programmare in ProDOS. Questa 
utility non solo aiuterà a capire e imparare con facilità, ma, soprattut¬ 
to... Lire 25.000. 

APPLICANDO 19 

API 9/N43 Oracolo. Comperare una casa? Cambiare lavoro? Conclu¬ 
dere o no quell’affare? Alcune scelte sono così importanti, legate a 
condizioni così complesse, che per decidere tra le alternative possibili, 
l’umana saggezza a volte non basta. Ci vogliono freddezza e distacco, 
per suddividere il problema nelle sue componenti allo scopo di analiz¬ 
zarle separatamente. Il primo programma di tipo decision maker di¬ 
sponibile in Italia. Digger. A differenza dei giochi di labirinto di tipo 
tradizionale, Digger vi chiede di risolvere dei rompicapi spaziali, e la 
prontezza di riflessi non è tra i fattori del gioco... I marziani, inoltre, non 
sono vostri nemici, anzi, i marziani siete voi... Claustrofobia. Non 
distruggete gli alieni, limitatevi a controllare che stiano tranquilli! Que¬ 
sto gioco in alta risoluzione, pacifista nei risultati, ma non nei metodi, 
mette alla prova l’abilità del giocatore, che deve schivare le bombe 
mentre spara contro gli alieni, per incolonnarli con ordine. Ma attenzio¬ 
ne che non vi incastrino, perché soffrite di claustrofobia... Gestione 
puntatori. Volete caricare in memoria un progamma in Applesoft al 
disopra di questo o quel codice in linguaggio macchina? Magari aggi¬ 
rando la memoria di schermo in alta risoluzione? O addirittura in cima a 
un codice ormai servito al suo scopo in un programma che sta giran¬ 
do? O annullare un FP battuto per errore? Con questo programma, 
tutto è possibile. Grafica in doppia risoluzione. Sei soluzioni, il 
programma, proposto nell’ambito del Progetto Seraphim, è un test che 
consiste nel presentare allo studente quantità limitate di un certo 
numero di soluzioni in provette numerate. Lo studente conosce le 
sostanze presenti e deve, usando esclusivamente le soluzioni a dispo¬ 
sizione, identificare il contenuto di ciascuna provetta. Lire 30.000. 


APPLICANDO 20 

AP20/N44 Salute. Purtroppo il medico di famiglia non esiste più (ma 
se ce n’è ancora qualcuno, si affretti a usare questo programma!): 
vaccinazioni da un lato, malattie dall’altro, analisi, terapie e soprattutto 
costi a non finire. Come ricordare tutto, registrare e listare le spese 
mediche di tutti i familiari? E al momento di pagare le tasse, poi... 
Variabili. Volete caricare in memoria un programma in Applesoft al di 
sopra di questo o quel codice macchina? O addirittura in cima a un 
codice ormai servito al suo scopo in un programma che sta girando? 
Oppure... Grafica. Che cosa sono le figure a blocco? Perché è impor¬ 
tante farne la conoscenza? Per chi possiede l’Apple Ile o il Ile con 
scheda 80 colonne continua l’entusiasmante viaggio nel mondo del¬ 
l’altissima definizione. Impariamo in questo numero a duplicare sul 
video la piccola immagine di un’astronave aliena. Simulazione di un 
equilibrio. Eccoci alla terza puntata dedicata al progetto Seraphim. In 
questo numero un software didattico che crea la simulazione al com¬ 
puter di un problema di equilibrio. Lire 25.000. 

AP20/N45 Oroscopo. Dedicato soprattutto a chi agli oroscopi non 
crede, forse questo programma può riuscire a far cambiare loro idea... 
Scientificamente fondato, permette la creazione di una carta del cielo 
natale che nulla invidia ai grafici tracciati dai professionisti. E le tabelle 
con latitudini, longitudini, fusi orari eccetera? Ci sono, ci sono... Voce. 
Ora non gli manca più la parola: con questa routine in linguaggio 
macchina l’Apple può finalmente pronunciare tutto quello che volete. 
Che cos’ha di diverso dagli altri programmi del genere? L’estrema 
semplicità, la totale trasparenza... Lire 30.000. 


APPLICANDO 21 

AP21 /N46 Architetto. Arredare bene la propria casa e il proprio ufficio 
è importantissimo... senza fare troppa fatica, però, e senza spenderci 
troppo denaro. Un programma per studiare sul video la disposizione di 
mobili, porte, finestre e muri, spostandoli a piacere, modificandone le 
dimensioni, duplicandoli, facendoli ruotare. E poi, naturalmente, 
stampando il tutto. Autocorsa. A tutta birra lungo una pista diroccata, 
con vere e proprie voragini e massi da schivare. A ogni videata cambia 
la difficoltà del percorso, e la sosta ai box riserva qualche interessante 
sorpresa. By-pass per il dump. Una scorciatoia, finalmente, per 
accedere alla routine di stampa, e solo a quella, senza bisogno di 
attraversare prima tutto il programma: basta by-passarlo! Cursore. 
Per lo spostamento del cursore Apple usa gli ingombranti comandi 
HTAB e VTAB; è invece possibile utilizzare speciali caratteri di control¬ 
lo nelle stringhe stampate, grazie a questo programma in codice 
macchina. Grafica. Un altro passo avanti verso la perfetta padronanza 
della grafica in altissima risoluzione: come animare sullo schermo le 
figure a blocchi e come dare l'impressione che scorrano dietro un altro 
oggetto. Curve di titolazione. Interessa gli studenti (e gli insegnanti) 
di chimica questo programma del Progetto Seraphim: inserite le debite 
variabili, e assegnato il nome all’acido che si sta studiando, traccia sul 
piano cartesiano la relativa curva di titolazione. Permette allenamenti 
succosi e intensivi senza troppe perdite di tempo. Lire 30.000. 
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DISTRIBUTORI PER L’ITALIA 


FILEA SISTEMI srl - Via Borzini, 3 - Mondovi (CN) 
ACCA-EFFE RECORD - Via Drovetti, 20 - Torino 
BCS ITALIA srl - Via Chivasso. 8 - Torino 
EMMEGI srl - Vìa dei Frassini, 41 - Milano 
C.E.O srl - P ie Aquileia, 8 - Milano 
AMU PROGRAM srl - Via Martinetti, 12 - Milano 
ITALMEDIA sas di CAFFO - Via Cenisio, 13 - Milano 
NUOVA LINEA srl 

Via Fratelli Rizzardi 51/15/A - Milano 
PROCED - Vìa Dante. 45 - Bollate (Milano) 
OFFICENTER snc 

Via Cantore, 8 E/3 - Ge-Sampierdarena 

M.B.M. COMP. - Via Mantovana, 31/0 - Donada (RO) 

BASE SET snc 

Via S. Giovanni Bosco. 45 - Monfalcone (GO) 
SERCOM - Via Toscana, 133 - Bologna 
CIAT - Via M. Rosa - Foligno (PG) 

GENERAL UFFICIO - Via Carducci. 16 - Ascoli Piceno 


NEW COMPUTER srl - Piazza Pergolesi, 2H - lesi (AN) 
SISTEMI UFFICIO - Via Delle Palombare. 32 - Ancona 
DIDACO - Via C. Battisti, 120/122 - Amandola (AP) 
COMPUTERS TECHNOLOGY G&B 
Via Fausti B. 19, S. Claudio - Corridonia (MC) 

FAVA COMPUTERS srl 

Via Della Liberazione, 4/a - S. Bened. Tronto (AP) 
SEFIN - Via Parini, 21 - Pescara 
CHIP srl - Via Milano. 76b - Pescara 
STUDIO DELTA - Via G. Hilli, 52 - Teramo 
tTALDATA srl - Via C. Ateio Capitone, 46 - Roma 
MECOM srl - Via Fiamignano, 49 - Roma 
I.C.R. srl - Via della Pisana, 437 - Roma 
ABACO - Via Piave - Roccasecca Scalo (FR) 
SICURDATA srl - Via Sanna Randaccio. 36 - Cagliari 
CENTRO SISTEMI - Via Logudoro, 12 - Cagliari 
ATRE spa 

Viale Marconi, 126 - Quartu S. Elena (Cagliari) 


Memorie 

per Elaboratori Elettronici s.p.A 


Forniture per Centri Elaborazione Dati 
Sede Amm.va: 20144 Milano - Via Boni. 29 
Tel. 4988541 (4 linee r.a.) 4986296-4984196 
Filiali e Agenzie: Milano Bergamo Torino 
Biella Padova Parma Bologna Firenze Ancona 
Roma Napoli Catania Oristano Bari Genova 
Bolzano Mestre 
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